2 ! { dg-options "-ftest-forall-temp" }
3 ! This is a copy of aliasing_dummy_4.f90, with an option set to improve
4 ! test coverage by forcing forall code to use a temporary.
8 integer, parameter :: N
= 2
14 type (test_type
) s(N
, N
)
16 forall (l
= 1:N
, m
= 1:N
) &
17 s(l
, m
)%a(:, :) = reshape ([((i
*l
+ 10*j
*m
+100, i
= 1, N
), j
= 1, N
)], [N
, N
])
19 call test_sub(s
%a(1, 1), 1000) ! Test the original problem.
21 if ( any (s(1, 1)%a(:, :) /= reshape ([1111, 112, 121, 122], [2, 2]))) call abort ()
22 if ( any (s(1, 2)%a(:, :) /= reshape ([1121, 122, 141, 142], [2, 2]))) call abort ()
23 if ( any (s(2, 1)%a(:, :) /= reshape ([1112, 114, 122, 124], [2, 2]))) call abort ()
24 if ( any (s(2, 2)%a(:, :) /= reshape ([1122, 124, 142, 144], [2, 2]))) call abort ()
26 call test_sub(s(1, 1)%a(:, :), 1000) ! Check "normal" references.
28 if ( any (s(1, 1)%a(:, :) /= reshape ([2111,1112,1121,1122], [2, 2]))) call abort ()
29 if ( any (s(1, 2)%a(:, :) /= reshape ([1121, 122, 141, 142], [2, 2]))) call abort ()
30 if ( any (s(2, 1)%a(:, :) /= reshape ([1112, 114, 122, 124], [2, 2]))) call abort ()
31 if ( any (s(2, 2)%a(:, :) /= reshape ([1122, 124, 142, 144], [2, 2]))) call abort ()
33 subroutine test_sub(array
, offset
)
34 integer array(:, :), offset
36 forall (i
= 1:N
, j
= 1:N
) &
37 array(i
, j
) = array(i
, j
) + offset