gcc/testsuite/gfortran.dg/pr77414.f90

   1 ! { dg-do compile }
   2 ! PR fortran/77414
   3 subroutine a(x)               ! { dg-error "(1)" }
   4    character(*) :: x
   5    contains
   6       subroutine a(x)         ! { dg-error " is already defined at" }
   7          character(*) :: x    ! { dg-error "Unexpected data declaration statement in CONTAINS section" }
   8       end subroutine a
   9 end subroutine a  ! { dg-error "Expecting END PROGRAM statement" }