1! { dg-do compile }
2! PR fortran/77414
3subroutine 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
9end subroutine a  ! { dg-error "Expecting END PROGRAM statement" }
10