gcc/testsuite/gfortran.dg/use_10.f90

   1 ! { dg-do run }
   2 module a
   3  implicit none
   4 interface operator(.op.)
   5   module procedure sub
   6 end interface
   7 interface operator(.ops.)
   8   module procedure sub2
   9 end interface
  10
  11 contains
  12   function sub(i)
  13     integer :: sub
  14     integer,intent(in) :: i
  15     sub = -i
  16   end function sub
  17   function sub2(i)
  18     integer :: sub2
  19     integer,intent(in) :: i
  20     sub2 = i
  21   end function sub2
  22 end module a
  23
  24 program test
  25 use a, only: operator(.op.), operator(.op.), &
  26 operator(.my.)=>operator(.op.),operator(.ops.)=>operator(.op.)
  27 implicit none
  28 if (.my.2 /= -2 .or. .op.3 /= -3 .or. .ops.7 /= -7) STOP 1
  29 end