2 ! Tests the fix for PR30883 in which interface functions and
3 ! their results did not get an implicit type.
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
10 SUBROUTINE S1(F1, F2, G1, G2)
15 implicit complex (a-z)
19 FUNCTION g1(i, a) result(z)
21 FUNCTION g2(i, a) result(z)
22 implicit complex (a-z)
29 ! { dg-final { cleanup-modules "m1" } }