| ! { dg-do compile } | |
| ! { dg-options "-std=f95" } | |
| ! PR 25093: Check that a PUBLIC function can't be of PRIVATE type | |
| ! in Fortran 95; in Fortran 2003 it is allowed (cf. PR fortran/38065) | |
| ! | |
| module m1 | |
| type :: t1 | |
| integer :: i | |
| end type t1 | |
| private :: t1 | |
| public :: f1 | |
| contains | |
| type(t1) function f1() ! { dg-error "of PRIVATE derived type" } | |
| end function | |
| end module |