3 ! PR 40594: [4.5 Regression] wrong-code
5 ! Original test case by Daniel Franke <dfranke@gcc.gnu.org>
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
11 TYPE(atom_private), DIMENSION(:), pointer :: table
15 TYPE(atom_list) :: neighbours
16 LOGICAL :: initialized = .true.
20 TYPE(atom_list) :: atoms
27 TYPE(atom_private) :: this
28 this%initialized = .FALSE.
37 TYPE(atom_model) :: am
38 type(atom_private) :: ap
43 if (ap%initialized .neqv. .false.) call abort()
47 ! { dg-final { cleanup-modules "atom_types" } }