blob: 7f7dbb8e1395e498d4826f3b81b86a808e193b80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
! { dg-do compile }
! Tests the fix for PR31086 in which the chained derived types
! was not being associated.
!
! Contributed by Daniel Franke <dfranke@gcc.gnu.org>
!
MODULE class_dummy_atom_types
TYPE :: dummy_atom_list
TYPE(dummy_atom), DIMENSION(:), POINTER :: table
END TYPE
TYPE :: dummy_atom
TYPE(dummy_atom_list) :: neighbours
END TYPE
TYPE :: dummy_atom_model
TYPE(dummy_atom_list) :: atoms
END TYPE
END MODULE
MODULE test_class_intensity_private
CONTAINS
SUBROUTINE change_phase(atom)
USE class_dummy_atom_types
TYPE(dummy_atom), INTENT(inout) :: atom
END SUBROUTINE
SUBROUTINE simulate_cube()
USE class_dummy_atom_types
TYPE(dummy_atom) :: atom
TYPE(dummy_atom_model) :: dam
atom = dam%atoms%table(1)
END SUBROUTINE
END MODULE
! { dg-final { cleanup-modules "class_dummy_atom_types test_class_intensity_private" } }
|