mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
24 lines
630 B
Fortran
24 lines
630 B
Fortran
! { dg-do run }
|
|
!
|
|
! PR 44696: [OOP] ASSOCIATED fails on polymorphic variables
|
|
!
|
|
! Original test case by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
|
|
! Modified by Janus Weil <janus@gcc.gnu.org>
|
|
|
|
program rte1
|
|
implicit none
|
|
type::node_type
|
|
class(node_type),pointer::parent,child
|
|
integer::id
|
|
end type node_type
|
|
class(node_type),pointer::root
|
|
allocate(root)
|
|
allocate(root%child)
|
|
root%child%parent=>root
|
|
root%id=1
|
|
root%child%id=2
|
|
print *,root%child%id," is child of ",root%id,":"
|
|
print *,root%child%parent%id,root%id
|
|
if (.not. associated(root%child%parent,root)) STOP 1
|
|
end program rte1
|