llvm/flang/test/Semantics/resolve116.f90

! 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