gcc/testsuite/gfortran.dg/internal_references_2.f90

   1 ! { dg-do compile }
   2 ! This tests the fix for the regression caused by the internal references
   3 ! patc, which is tested by internal_references_1.f90. Reported as PR25901.
   4 !
   5 ! Based on test cases provided by Toon Moene  <toon@moene.indiv.nluug.nl>
   6 !                          and by Martin Reinecke <martin@mpa-garching.mpg.de>
   7 module aap
   8   interface s
   9     module procedure sub,sub1
  10   end interface
  11 contains
  12   subroutine sub1(i)
  13     integer i
  14     real a
  15     call sub(a)      ! For the original test, this "defined" the procedure.
  16   end subroutine sub1
  17   subroutine sub(a)  ! Would give an error on "already defined" here
  18     real a
  19   end subroutine sub
  20 end module aap
  21
  22 ! { dg-final { cleanup-modules "aap" } }