20 lines
550 B
Fortran
20 lines
550 B
Fortran
! { 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 }
|