blob: c6ea2b9e032c70d994918d24ad3729647211e70f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { 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 }
|