blob: 46dbdf6c2faa53acd0b451824c7d1acd09bd217e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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
! { dg-final { cleanup-modules "M1" } }
|
