2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "foo" }
5 x
= (/ (i
, i
= 1, 10) /)
8 x(7:1:m
) = x(1:3) + x(6:2:n
)
9 if (any(x
/= (/ 5, 2, 3, 6, 5, 6, 7, 8, 9, 10 /))) call abort()
10 x(8:1:m
) = x(1:3) + x(5:2:n
)
12 ! { dg-output "line 10 .* bound mismatch .* dimension 1 .* array \'x\' \\\(2/3\\\)" }