111
|
1 ! { dg-do run }
|
|
2 ! Check whether RESULT of ENTRY defaults to entry-name.
|
|
3 ! PR fortran/30873
|
|
4 !
|
|
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
6 !
|
|
7 MODULE M1
|
|
8 CONTAINS
|
|
9 FUNCTION F2(K)
|
|
10 INTEGER :: F2,K
|
|
11 F2=E1(K)
|
|
12 END FUNCTION F2
|
|
13
|
|
14 RECURSIVE FUNCTION F1(I)
|
|
15 INTEGER :: F1,I,E1
|
|
16 F1=F2(I)
|
|
17 RETURN
|
|
18 ENTRY E1(I)
|
|
19 E1=-I
|
|
20 RETURN
|
|
21 END FUNCTION F1
|
|
22 END MODULE M1
|
|
23
|
|
24 program main
|
|
25 use m1
|
131
|
26 if (E1(5) /= -5) STOP 1
|
|
27 if (F2(4) /= -4) STOP 2
|
|
28 if (F1(1) /= -1) STOP 3
|
111
|
29 end program main
|