12 do concurrent (i
=1:5, j
=1:5, (i
/=j
))
17 if (any (A(:,1) /= [0, 2, 3, 4, 0])) STOP 1
18 if (any (A(:,2) /= [2, 0, 6, 8, 0])) STOP 2
19 if (any (A(:,3) /= [3, 6, 0, 12, 0])) STOP 3
20 if (any (A(:,4) /= [4, 8, 12, 0, 0])) STOP 4
21 if (any (A(:,5) /= [5, 10, 15, 20, 0])) STOP 5
25 do concurrent (i
= 1 : 5)
34 if (any (A(:,1) /= [-99, 2, 3, 4, 5])) STOP 6
35 if (any (A(:,2) /= [ 2, -99, 6, 8, 10])) STOP 7
36 if (any (A(:,3) /= [ 3, 6, -99, 12, 15])) STOP 8
37 if (any (A(:,4) /= [ 4, 8, 12, -99, 20])) STOP 9
38 if (any (A(:,5) /= [-99, -99, -99, -99, -5])) STOP 10