gcc/testsuite/gfortran.dg/pr77414.f90

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