1! { dg-do compile }
2! Tests the fix for PR30883 in which interface functions and
3! their results did not get an implicit type.
4!
5! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
6!
7MODULE M1
8  IMPLICIT NONE
9CONTAINS
10  SUBROUTINE S1(F1, F2, G1, G2)
11    INTERFACE
12      FUNCTION F1(i, a)
13      END FUNCTION F1
14      FUNCTION F2(i, a)
15        implicit complex (a-z)
16      END FUNCTION F2
17    END INTERFACE
18    INTERFACE
19      FUNCTION g1(i, a) result(z)
20      END FUNCTION g1
21      FUNCTION g2(i, a) result(z)
22        implicit complex (a-z)
23      END FUNCTION g2
24    END INTERFACE
25  END SUBROUTINE S1
26END MODULE
27
28END
29