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)) STOP 1
  12 if (iand(a(1,1),a(2,1)) /= iall(array=[35, -74])) STOP 2
  13 if (any (iand(a(1,1),a(2,1)) /= iall(a,dim=1))) STOP 3
  14 if (iand(a(1,1),a(2,1)) /= iall(dim=1,mask=[.true.,.true.],array=[35, -74])) STOP 4
  15
  16 if (ior(a(1,1),a(2,1)) /= iany(a)) STOP 5
  17 if (ior(a(1,1),a(2,1)) /= iany(array=[35, -74])) STOP 6
  18 if (any (ior(a(1,1),a(2,1)) /= iany(a,dim=1))) STOP 7
  19 if (ior(a(1,1),a(2,1)) /= iany(dim=1,mask=[.true.,.true.],array=[35, -74])) STOP 8
  20
  21 if (ieor(a(1,1),a(2,1)) /= iparity(a)) STOP 9
  22 if (ieor(a(1,1),a(2,1)) /= iparity(array=[35, -74])) STOP 10
  23 if (any (ieor(a(1,1),a(2,1)) /= iparity(a,dim=1))) STOP 11
  24 if (ieor(a(1,1),a(2,1)) /= iparity(dim=1,mask=[.true.,.true.],array=[35, -74])) STOP 12
  25
  26 end