2 real, dimension (20) :: r
3 integer, dimension (20) :: d
5 integer (kind
= 2) :: a
, b
, c
14 if (n
.ne
. 22) call abort
15 if (any (r
.ne
. 33)) call abort
22 if (i
.ne
. 1) call abort
25 if (i
.ne
. 23) call abort
32 if (a
.ne
. 1) call abort
35 if (a
.ne
. 23) call abort
44 subroutine foo (x
, y
, n
)
49 x(y(i
)) = x(y(i
)) + bar (i
)