2 ! { dg-options "-std=f95" }
3 ! PR16404 test 6 - If a component of a derived type is of a type declared to
4 ! be private, either the derived type definition must contain the PRIVATE
5 ! statement, or the derived type must be private.
6 ! Modified on 20051105 to test PR24534.
7 ! Modified on 20090419 to use -std=f95, since F2003 allows public types
8 ! with private components.
10 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
16 TYPE :: all_type
! { dg-error "PRIVATE type and cannot be a component" }
17 TYPE(info_type
) :: info
19 TYPE :: any_type
! This is OK because of the PRIVATE statement.
21 TYPE(info_type
) :: info
23 public all_type
, any_type