2 ! { dg-options "-std=f95" }
11 type(t
), public
:: one
! { dg-error "PRIVATE derived type" }
12 type(t
), public
, parameter :: two
= t(2) ! { dg-error "PRIVATE derived type" }
21 type(t
), public
:: one
! { dg-error "PRIVATE derived type" }
22 type(t
), public
, parameter :: two
= t(2) ! { dg-error "PRIVATE derived type" }
37 type(t
), public
:: one
38 type(t
), public
, parameter :: two
= t(2)
42 ! { dg-final { cleanup-modules "m1 m2 m3 m4" } }