1! { dg-do compile } 2! { dg-options "-fcoarray=single" } 3! 4! Used to be rejected with: 5! Error: Variable 'x' at (1) is a coarray or has a coarray 6! component and is not ALLOCATABLE, SAVE nor a dummy argument 7! 8! Is valid as "a" is allocatable, cf. C526 9! and http://j3-fortran.org/pipermail/j3/2011-June/004403.html 10! 11 12 subroutine test2() 13 type t 14 integer, allocatable :: a(:)[:] 15 end type t 16 type(t) :: x 17 allocate(x%a(1)[*]) 18 end subroutine test2 19