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 8 end subroutine a 9end subroutine a 10