gcc/testsuite/gfortran.dg/use_only_4.f90

   1 ! { dg-do compile }
   2 ! Test the fix for PR41062, in which an ICE would ensue because
   3 ! of confusion between the two 'one's in the creation of module
   4 ! debug info.
   5 !
   6 ! Reported by Norman S. Clerman <clerman@fuse.net>
   7 ! Reduced testcase by Tobias Burnus <burnus@gcc.gnu.org>
   8 !
   9 module m1
  10    interface one  ! GENERIC "one"
  11      module procedure one1
  12    end interface
  13 contains
  14   subroutine one1()
  15     STOP 1
  16   end subroutine one1
  17 end module m1
  18
  19 module m2
  20 use m1, only : one  ! USE generic "one"
  21 contains
  22   subroutine two()
  23     call one()  ! Call internal "one"
  24   contains
  25     subroutine one() ! Internal "one"
  26       print *, "m2"
  27     end subroutine one
  28   end subroutine two
  29 end module m2
  30
  31   use m2
  32   call two
  33 end