gcc/testsuite/gfortran.dg/same_name_2.f90

   1 ! ( dg-do compile }
   2 ! Tests the fix for PR27701, in which two same name procedures
   3 ! were not diagnosed if they had no arguments.
   4 !
   5 ! Contributed by Arjen Markus  <arjen.markus@wldelft.nl>
   6 !
   7 module aha
   8 contains
   9 subroutine aa ! { dg-error "Procedure" }
  10    write(*,*) 'AA'
  11 end subroutine aa
  12 subroutine aa ! { dg-error "is already defined" }
  13    write(*,*) 'BB'
  14 end subroutine aa
  15 end module
  16 ! { dg-final { cleanup-modules "aha" } }