2 ! Tests the fix for PR31086 in which the chained derived types
3 ! was not being associated.
5 ! Contributed by Daniel Franke <dfranke@gcc.gnu.org>
7 MODULE class_dummy_atom_types
8 TYPE :: dummy_atom_list
9 TYPE(dummy_atom), DIMENSION(:), POINTER :: table
13 TYPE(dummy_atom_list) :: neighbours
16 TYPE :: dummy_atom_model
17 TYPE(dummy_atom_list) :: atoms
21 MODULE test_class_intensity_private
23 SUBROUTINE change_phase(atom)
24 USE class_dummy_atom_types
25 TYPE(dummy_atom), INTENT(inout) :: atom
28 SUBROUTINE simulate_cube()
29 USE class_dummy_atom_types
30 TYPE(dummy_atom) :: atom
31 TYPE(dummy_atom_model) :: dam
32 atom = dam%atoms%table(1)
35 ! { dg-final { cleanup-modules "class_dummy_atom_types test_class_intensity_private" } }