! { dg-do compile } | |
! | |
! PR fortran/34763 | |
! Before, gfortran did not allow for the "END" in | |
! the interface, which is no module procedure. | |
! | |
! Test case contributed by Dick Hendrickson | |
! | |
module n | |
contains | |
subroutine n_interface | |
INTERFACE | |
SUBROUTINE NGSXDY(TLS1,TLS2) | |
REAL :: TLS1,TLS2 | |
END ! OK | |
END INTERFACE | |
end ! { dg-error "END SUBROUTINE statement" } | |
end module ! { dg-error "END SUBROUTINE statement" } | |
! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 } |