Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr47757-1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! PR libfortran/47757 ! { dg-do run } integer(1) :: a1(2,2) integer(2) :: a2(2,2) integer(4) :: a4(2,2) integer(8) :: a8(2,2) logical :: mask(2,2) logical :: mask2 a1 = 0 a2 = 0 a3 = 0 a4 = 0 mask2 = .true. mask = reshape([.true.,.true.,.false.,.true.],[2,2]) print *, iany(a1, dim=1, mask=mask) print *, iany(a2, dim=1, mask=mask) print *, iany(a4, dim=1, mask=mask) print *, iany(a8, dim=1, mask=mask) print *, iall(a1, dim=1, mask=mask) print *, iall(a2, dim=1, mask=mask) print *, iall(a4, dim=1, mask=mask) print *, iall(a8, dim=1, mask=mask) print *, iparity(a1, dim=1, mask=mask) print *, iparity(a2, dim=1, mask=mask) print *, iparity(a4, dim=1, mask=mask) print *, iparity(a8, dim=1, mask=mask) print *, iany(a1, dim=1, mask=mask2) print *, iany(a2, dim=1, mask=mask2) print *, iany(a4, dim=1, mask=mask2) print *, iany(a8, dim=1, mask=mask2) print *, iall(a1, dim=1, mask=mask2) print *, iall(a2, dim=1, mask=mask2) print *, iall(a4, dim=1, mask=mask2) print *, iall(a8, dim=1, mask=mask2) print *, iparity(a1, dim=1, mask=mask2) print *, iparity(a2, dim=1, mask=mask2) print *, iparity(a4, dim=1, mask=mask2) print *, iparity(a8, dim=1, mask=mask2) end