gcc/testsuite/gfortran.dg/class_array_18.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/57535
   4 !
   5 program test
   6   implicit none
   7   type t
   8     integer :: ii = 55
   9   end type t
  10 contains
  11   function func2()
  12     class(t), allocatable :: func2(:)
  13     allocate(func2(3))
  14     func2%ii = [111,222,333]
  15   end function func2
  16 end program test