40 lines
807 B
Fortran
40 lines
807 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fwhole-file" }
|
|
!
|
|
! Tests the fix PR40011 comment 16 in which the derived type lists in
|
|
! different program units were getting mixed up.
|
|
!
|
|
! Contributed by Daniel Franck <dfranke@gcc.gnu.org>
|
|
!
|
|
MODULE module_foo
|
|
TYPE :: foo_node
|
|
TYPE(foo_node_private), POINTER :: p
|
|
END TYPE
|
|
|
|
TYPE :: foo_node_private
|
|
TYPE(foo_node), DIMENSION(-1:1) :: link
|
|
END TYPE
|
|
|
|
TYPE :: foo
|
|
TYPE(foo_node) :: root
|
|
END TYPE
|
|
END MODULE
|
|
|
|
FUNCTION foo_insert()
|
|
USE module_foo, ONLY: foo, foo_node
|
|
|
|
INTEGER :: foo_insert
|
|
TYPE(foo_node) :: parent, current
|
|
INTEGER :: cmp
|
|
|
|
parent = current
|
|
current = current%p%link(cmp)
|
|
END FUNCTION
|
|
|
|
FUNCTION foo_count()
|
|
USE module_foo, ONLY: foo
|
|
INTEGER :: foo_count
|
|
END FUNCTION
|
|
|
|
! { dg-final { cleanup-modules "module_foo" } }
|