2 ! Tests fix for PR25058 in which references to dummy
3 ! parameters before the entry would be missed.
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
9 FUNCTION F1(I) RESULT(RF1)
10 INTEGER :: I,K,RE1,RF1
11 RE1=K ! { dg-error "before the ENTRY statement" }
13 ENTRY E1(K) RESULT(RE1)