25 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test rename to the same name.3module m14 integer, allocatable :: a(:)5 6 interface operator(.add.)7 module procedure add8 end interface9 10contains11 integer function add(a, b)12 integer, intent(in) :: a, b13 14 add = a + b15 end function16end17 18program p119 use m1, a => a, operator(.add.) => operator(.add.)20 21 allocate(a(10))22 deallocate(a)23 print *, 2 .add. 224end25