gcc/testsuite/gfortran.dg/pr47757-2.f90

   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)
  16 end