2 ! PR 28416: Check that allocatable dummies can be passed onwards as non-assumed
7 integer, allocatable :: a(:)
11 integer, allocatable :: v_out(:)
16 if (any(a /= [ 1, 2, 3 ])) call abort()
23 integer, allocatable :: v_out(:)
26 call bar(v_out, size(v_out))