gcc/testsuite/gfortran.dg/der_pointer_4.f90

   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), save :: bar
  11 end module crash
  12
  13 ! { dg-final { cleanup-modules "crash" } }