16 lines
498 B
Fortran
16 lines
498 B
Fortran
! { dg-do compile }
|
|
! Tests fix for PR25090 in which references in specification
|
|
! expressions to variables that were not entry formal arguments
|
|
! would be missed.
|
|
!
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
!
|
|
SUBROUTINE S1(I)
|
|
CHARACTER(LEN=I+J) :: a
|
|
real :: x(i:j), z
|
|
a = "" ! { dg-error "before the ENTRY statement in which it is a parameter" }
|
|
x = 0.0 ! { dg-error "before the ENTRY statement in which it is a parameter" }
|
|
ENTRY E1(J)
|
|
END SUBROUTINE S1
|
|
END
|