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