gcc/testsuite/gfortran.dg/iall_iany_iparity_1.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/38282
   4 !
   5 implicit none
   6 integer :: a(2,1)
   7
   8 a(1,1) = 35
   9 a(2,1) = -74
  10
  11 if (iand(a(1,1),a(2,1)) /= iall(a)) call abort ()
  12 if (iand(a(1,1),a(2,1)) /= iall(array=[35, -74])) call abort ()
  13 if (any (iand(a(1,1),a(2,1)) /= iall(a,dim=1))) call abort ()
  14 if (iand(a(1,1),a(2,1)) /= iall(dim=1,mask=[.true.,.true.],array=[35, -74])) call abort ()
  15
  16 if (ior(a(1,1),a(2,1)) /= iany(a)) call abort ()
  17 if (ior(a(1,1),a(2,1)) /= iany(array=[35, -74])) call abort ()
  18 if (any (ior(a(1,1),a(2,1)) /= iany(a,dim=1))) call abort ()
  19 if (ior(a(1,1),a(2,1)) /= iany(dim=1,mask=[.true.,.true.],array=[35, -74])) call abort ()
  20
  21 if (ieor(a(1,1),a(2,1)) /= iparity(a)) call abort ()
  22 if (ieor(a(1,1),a(2,1)) /= iparity(array=[35, -74])) call abort ()
  23 if (any (ieor(a(1,1),a(2,1)) /= iparity(a,dim=1))) call abort ()
  24 if (ieor(a(1,1),a(2,1)) /= iparity(dim=1,mask=[.true.,.true.],array=[35, -74])) call abort ()
  25
  26 end