2 ! Tests the fix for PR31550 in which pointers to derived type components
3 ! were being TREE-SSA declared in the wrong order and so in the incorrect
6 ! Contributed by Daniel Franke <dfranke@gcc.gnu.org>
8 MODULE class_dummy_atom_types
9 TYPE :: dummy_atom_list
10 TYPE(dummy_atom
), DIMENSION(:), POINTER :: table
15 TYPE(dummy_atom_private
), POINTER :: p
18 TYPE :: dummy_atom_private
19 TYPE(dummy_atom_list
) :: neighbors
23 MODULE class_dummy_atom_list
24 USE class_dummy_atom_types
, ONLY
: dummy_atom_list
27 SUBROUTINE dummy_atom_list_init_copy(this
, other
)
28 USE class_dummy_atom_types
, ONLY
: dummy_atom_list
29 TYPE(dummy_atom_list
), INTENT(out
) :: this
30 TYPE(dummy_atom_list
), INTENT(in
) :: other
35 SUBROUTINE dummy_atom_list_merge(this
, other
)
36 USE class_dummy_atom_types
, ONLY
: dummy_atom_list
37 TYPE(dummy_atom_list
), INTENT(inout
) :: this
38 TYPE(dummy_atom_list
), INTENT(in
) :: other
43 SUBROUTINE dummy_atom_list_init_copy(this
, other
)
44 USE class_dummy_atom_list
, ONLY
: dummy_atom_list
, dummy_atom_list_merge
46 TYPE(dummy_atom_list
), INTENT(out
) :: this
47 TYPE(dummy_atom_list
), INTENT(in
) :: other
49 this
%table(1:this
%nused
) = other
%table(1:other
%nused
)