| ! Taken from execute/where_2.f90, but with special flags. |
| ! { dg-do run } |
| ! { dg-additional-options "-fno-tree-loop-vectorize" } |
| |
| ! Program to test the WHERE constructs |
| program where_2 |
| integer temp(10), reduce(10) |
| |
| temp = 10 |
| reduce(1:3) = -1 |
| reduce(4:6) = 0 |
| reduce(7:8) = 5 |
| reduce(9:10) = 10 |
| |
| WHERE (reduce < 0) |
| temp = 100 |
| ELSE WHERE (reduce .EQ. 0) |
| temp = 200 + temp |
| ELSE WHERE |
| WHERE (reduce > 6) temp = temp + sum(reduce) |
| temp = 300 + temp |
| END WHERE |
| |
| if (any (temp .ne. (/100, 100, 100, 210, 210, 210, 310, 310, 337, 337/))) & |
| STOP 1 |
| end program |