gcc/testsuite/gfortran.dg/use_16.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/31600
   4 !
   5 module a
   6 implicit none
   7 contains
   8   integer function bar()
   9     bar = 42
  10   end function
  11 end module a
  12
  13 use a ! { dg-error "Symbol 'bar' at \\(1\\) conflicts with symbol from module 'a'" }
  14 implicit none
  15 integer :: bar ! { dg-error "Symbol 'bar' at \\(1\\) conflicts with symbol from module 'a'" }
  16 end