2 ! Check whether RESULT of ENTRY defaults to entry-name.
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
14 RECURSIVE FUNCTION F1(I
)
26 if (E1(5) /= -5) call abort()
27 if (F2(4) /= -4) call abort()
28 if (F1(1) /= -1) call abort()
31 ! { dg-final { cleanup-modules "m1" } }