gcc/testsuite/gfortran.dg/generic_1.f90

   1 ! { dg-do compile }
   2 ! reduced testcase from PR 17535
   3 module FOO
   4   interface BAR
   5
   6     subroutine BAR1(X)
   7       integer :: X
   8     end subroutine
   9
  10     subroutine BAR2(X)
  11       real :: X
  12     end subroutine
  13
  14   end interface
  15 end module
  16
  17 subroutine BAZ(X)
  18   use FOO
  19 end subroutine
  20
  21 ! { dg-final { cleanup-modules "FOO" } }