gnu / gcc / cd2fd5facb5e1882d3f338ed456ae9536f7c0593 / . / gcc / testsuite / gfortran.fortran-torture / execute / where_2.f90

! 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 |