1! { dg-do compile }
2! { dg-options "-std=f95" }
3! PR fortran/38065
4!
5! Reported by Norman S. Clerman
6! and reduced by Joost VandeVondele
7!
8MODULE M1
9  IMPLICIT NONE
10  PRIVATE
11  TYPE T1
12   INTEGER :: I1
13  END TYPE T1
14  PUBLIC :: S1,F2
15CONTAINS
16  SUBROUTINE S1
17  CONTAINS
18   TYPE(T1) FUNCTION F1()
19   END FUNCTION F1
20  END SUBROUTINE S1
21  TYPE(T1) FUNCTION F2() ! { dg-error "Fortran 2003: PUBLIC variable 'f2'" }
22  END FUNCTION F2
23END MODULE M1
24