./:
[official-gcc.git] / gcc / testsuite / gfortran.dg / der_pointer_4.f90
blob6bc499dbab766eca61f8a52e5c4cb7e19f9ae6dc
1 ! {dg-do compile }
2 ! PR 24426
3 ! Pointer-components of derived type with initialized components
4 module crash
5 implicit none
6 type foo
7 integer :: i = 0
8 type (foo), pointer :: next
9 end type foo
10 type (foo) :: bar
11 end module crash