flang/test/Semantics/resolve116.f90

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