2 ! { dg-options "-fwhole-file" }
4 ! Tests the fix PR40011 comment 16 in which the derived type lists in
5 ! different program units were getting mixed up.
7 ! Contributed by Daniel Franck <dfranke@gcc.gnu.org>
11 TYPE(foo_node_private
), POINTER :: p
14 TYPE :: foo_node_private
15 TYPE(foo_node
), DIMENSION(-1:1) :: link
19 TYPE(foo_node
) :: root
24 USE module_foo
, ONLY
: foo
, foo_node
27 TYPE(foo_node
) :: parent
, current
31 current
= current
%p
%link(cmp
)
35 USE module_foo
, ONLY
: foo