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)