! RUN: %python %S/test_errors.py %s %flang_fc1 | |
! Test rename to the same name. | |
module m1 | |
integer, allocatable :: a(:) | |
interface operator(.add.) | |
module procedure add | |
end interface | |
contains | |
integer function add(a, b) | |
integer, intent(in) :: a, b | |
add = a + b | |
end function | |
end | |
program p1 | |
use m1, a => a, operator(.add.) => operator(.add.) | |
allocate(a(10)) | |
deallocate(a) | |
print *, 2 .add. 2 | |
end |