blob: a78a1962b3b7f1d7366dc8ec0c560d2a3ba39ce2 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
! Used to be rejected with:
! Error: Variable 'x' at (1) is a coarray or has a coarray
! component and is not ALLOCATABLE, SAVE nor a dummy argument
!
! Is valid as "a" is allocatable, cf. C526
! and http://j3-fortran.org/pipermail/j3/2011-June/004403.html
!
subroutine test2()
type t
integer, allocatable :: a(:)[:]
end type t
type(t) :: x
allocate(x%a(1)[*])
end subroutine test2