gnu / gcc / e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3 / . / gcc / testsuite / gfortran.fortran-torture / execute / where_10.f90

! Check whether conditional ELSEWHEREs work | |

! (with final unconditional ELSEWHERE) | |

program where_10 | |

integer :: a(5) | |

integer :: b(5) | |

a = (/1, 2, 3, 4, 5/) | |

b = (/0, 0, 0, 0, 0/) | |

where (a .eq. 1) | |

b = 3 | |

elsewhere (a .eq. 2) | |

b = 1 | |

elsewhere (a .eq. 3) | |

b = 4 | |

elsewhere (a .eq. 4) | |

b = 1 | |

elsewhere | |

b = 5 | |

endwhere | |

if (any (b .ne. (/3, 1, 4, 1, 5/))) & | |

STOP 1 | |

end program | |