2 ! PR16404 test 6 - If a component of a derived type is of a type declared to
3 ! be private, either the derived type definition must contain the PRIVATE
4 ! statement, or the derived type must be private.
5 ! Modified on 20051105 to test PR24534.
7 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
13 TYPE :: all_type
! { dg-error "PRIVATE type and cannot be a component" }
14 TYPE(info_type
) :: info
16 TYPE :: any_type
! This is OK because of the PRIVATE statement.
18 TYPE(info_type
) :: info
20 public all_type
, any_type