Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/forall_6.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! PR fortran/30404 ! Checks that we correctly handle nested masks in nested FORALL blocks. ! Contributed by Paul Thomas <pault@gcc.gnu.org> ! ! { dg-do run } logical :: l1(2,2) integer :: it(2,2) l1(:,:) = reshape ((/.false.,.true.,.true.,.false./), (/2,2/)) it(:,:) = reshape ((/1,2,3,4/), (/2,2/)) forall (i = 1:2, i < 3) forall (j = 1:2, l1(i,j)) it(i, j) = 0 end forall end forall ! print *, l1 ! print '(4i2)', it if (any (it .ne. reshape ((/1, 0, 0, 4/), (/2, 2/)))) STOP 1 end