gcc/testsuite/gfortran.dg/der_pointer_4.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

! { dg-do compile }
! PR 24426
! Pointer-components of derived type with initialized components
module crash
  implicit none
  type foo
    integer :: i = 0
    type (foo), pointer :: next
  end type foo
  type (foo), save :: bar
end module crash

! { dg-final { cleanup-modules "crash" } }