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