11 associate(u
=> v
, b
=> a(i
, j
))
12 !$omp parallel private(v, a) default(none)
15 if (v
/= -1 .or
. u
/= 15) call abort
16 if (a(2,1) /= 2.5 .or
. b
/= 3.5) call abort
17 associate(u
=> v
, b
=> a(2, 1))
18 if (u
/= -1 .or
. b
/= 2.5) call abort
20 if (u
/= 15 .or
. b
/= 3.5) call abort