1! { dg-do compile } 2! { dg-options "-c -std=f95" } 3! Testcase from PR fortran/25094 4! Contributed by Joost VandeVondele <jv244@cam.ac.uk> 5 6MODULE M1 7 TYPE T1 8 INTEGER :: I 9 END TYPE T1 10 INTERFACE I 11 MODULE PROCEDURE F1 12 END INTERFACE 13 PRIVATE ! :: T1,F1 14 PUBLIC :: I 15CONTAINS 16 INTEGER FUNCTION F1(D) ! { dg-error "PUBLIC interface" } 17 TYPE(T1) :: D 18 F1 = D%I 19 END FUNCTION 20END MODULE 21