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