1! PR libfortran/47757 2! { dg-do run { target fortran_large_int } } 3 4 integer(16) :: a16(2,2) 5 logical :: mask(2,2) 6 logical :: mask2 7 a16 = 0 8 mask2 = .true. 9 mask = reshape([.true.,.true.,.false.,.true.],[2,2]) 10 print *, iany(a16, dim=1, mask=mask) 11 print *, iall(a16, dim=1, mask=mask) 12 print *, iparity(a16, dim=1, mask=mask) 13 print *, iany(a16, dim=1, mask=mask2) 14 print *, iall(a16, dim=1, mask=mask2) 15 print *, iparity(a16, dim=1, mask=mask2) 16end 17