blob: 5f2f3dee7f221e59b1b5c1b4ffee8968b1efe4c9 (
plain)
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
|