gcc/testsuite/gfortran.dg/class_allocate_24.f90


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

! { dg-do compile }
! { dg-options "-fcheck=mem" }
! 
! Compile time check only, to test that the ICE is fixed in the assignment of the
! default initializer of the class to sf.

implicit none

type :: t
  integer, pointer :: data => null ()
end type

class(t), dimension(:), allocatable :: sf
allocate (t :: sf (1))
end