gcc/testsuite/gfortran.dg/ambiguous_reference_2.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 39930: Bogus error: ambiguous reference
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 module a1
   8 contains
   9   subroutine myRoutine
  10   end subroutine
  11 end module
  12
  13 module a2
  14 contains
  15   subroutine myRoutine
  16   end subroutine
  17 end module
  18
  19 module b
  20 contains
  21
  22   subroutine otherRoutine
  23     use a1
  24     use a2
  25   end subroutine
  26
  27   subroutine myRoutine
  28   end subroutine myRoutine      ! this is not ambiguous !
  29
  30 end module
  31
  32 ! { dg-final { cleanup-modules "a1 a2 b" } }
  33