1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Test rename to the same name. 3module m1 4 integer, allocatable :: a(:) 5 6 interface operator(.add.) 7 module procedure add 8 end interface 9 10contains 11 integer function add(a, b) 12 integer, intent(in) :: a, b 13 14 add = a + b 15 end function 16end 17 18program p1 19 use m1, a => a, operator(.add.) => operator(.add.) 20 21 allocate(a(10)) 22 deallocate(a) 23 print *, 2 .add. 2 24end 25