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