1 ! PR 21104. Make sure that either f() or its caller will allocate
2 ! the array data. We've decided to make the caller allocate it.
9 integer, dimension (10) :: x
12 if (x (i) .ne. i * 100) call abort
17 integer, dimension (10) :: f
19 forall (i = 1:10) f (i) = i * 100