gcc/testsuite/gfortran.dg/used_types_15.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR31086 in which the chained derived types
   3 ! was not being associated.
   4 !
   5 ! Contributed by Daniel Franke <dfranke@gcc.gnu.org>
   6 !
   7 MODULE class_dummy_atom_types
   8 TYPE :: dummy_atom_list
   9   TYPE(dummy_atom), DIMENSION(:), POINTER :: table
  10 END TYPE
  11
  12 TYPE :: dummy_atom
  13   TYPE(dummy_atom_list) :: neighbors
  14 END TYPE
  15
  16 TYPE :: dummy_atom_model
  17   TYPE(dummy_atom_list) :: atoms
  18 END TYPE
  19 END MODULE
  20
  21 MODULE test_class_intensity_private
  22 CONTAINS
  23   SUBROUTINE change_phase(atom)
  24     USE class_dummy_atom_types
  25     TYPE(dummy_atom), INTENT(inout) :: atom
  26   END SUBROUTINE
  27
  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)
  33   END SUBROUTINE
  34 END MODULE