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' ! { dg-error "Unexpected WRITE statement in CONTAINS section" }
  14 end subroutine aa ! { dg-error "Expecting END MODULE statement" }
  15 end module