gcc-4.9/gcc/testsuite/gfortran.dg/class_array_18.f90


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

! { dg-do compile }
!
! PR fortran/57535
!
program test
  implicit none
  type t
    integer :: ii = 55
  end type t
contains
  function func2()
    class(t), allocatable :: func2(:)
    allocate(func2(3))
    func2%ii = [111,222,333]
  end function func2
end program test