gcc/testsuite/gfortran.dg/whole_file_11.f90

   1 ! { dg-do compile }
   2 !
   3 ! Tests the fix PR40011 comment 16 in which the derived type lists in
   4 ! different program units were getting mixed up.
   5 !
   6 ! Contributed by Daniel Franck  <dfranke@gcc.gnu.org>
   7 !
   8 MODULE module_foo
   9   TYPE :: foo_node
  10     TYPE(foo_node_private), POINTER :: p
  11   END TYPE
  12
  13   TYPE :: foo_node_private
  14     TYPE(foo_node), DIMENSION(-1:1) :: link
  15   END TYPE
  16
  17   TYPE :: foo
  18     TYPE(foo_node) :: root
  19   END TYPE
  20 END MODULE
  21
  22 FUNCTION foo_insert()
  23   USE module_foo, ONLY: foo, foo_node
  24
  25   INTEGER :: foo_insert
  26   TYPE(foo_node) :: parent, current
  27   INTEGER :: cmp
  28
  29   parent  = current
  30   current = current%p%link(cmp)
  31 END FUNCTION
  32
  33 FUNCTION foo_count()
  34   USE module_foo, ONLY: foo
  35   INTEGER :: foo_count
  36 END FUNCTION