! { dg-do compile } | |
! { dg-options "-std=f95" } | |
! PR fortran/38065 | |
! | |
! Reported by Norman S. Clerman | |
! and reduced by Joost VandeVondele | |
! | |
MODULE M1 | |
IMPLICIT NONE | |
PRIVATE | |
TYPE T1 | |
INTEGER :: I1 | |
END TYPE T1 | |
PUBLIC :: S1,F2 | |
CONTAINS | |
SUBROUTINE S1 | |
CONTAINS | |
TYPE(T1) FUNCTION F1() | |
END FUNCTION F1 | |
END SUBROUTINE S1 | |
TYPE(T1) FUNCTION F2() ! { dg-error "Fortran 2003: PUBLIC variable 'f2'" } | |
END FUNCTION F2 | |
END MODULE M1 |