blob: 1634e25d4b7197e5c6474ee9b088f9f6f9eacf74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { dg-do compile }
! Tests fix for PR25058 in which references to dummy
! parameters before the entry would be missed.
!
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
!
MODULE M1
CONTAINS
FUNCTION F1(I) RESULT(RF1)
INTEGER :: I,K,RE1,RF1
RE1=K ! { dg-error "before the ENTRY statement" }
RETURN
ENTRY E1(K) RESULT(RE1)
RE1=-I
RETURN
END FUNCTION F1
END MODULE M1
END
|
