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     call abort
  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