gcc/testsuite/gfortran.dg/parity_1.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/33197
   4 !
   5 ! Check implementation of PARITY
   6 !
   7 implicit none
   8
   9 integer :: i
  10 logical :: Lt(1) = [ .true. ]
  11 logical :: Lf(1) = [ .false.]
  12 logical :: Ltf(2) = [ .true., .false. ]
  13 logical :: Ltftf(4) = [.true., .false., .true.,.false.]
  14
  15 if (parity([logical ::]) .neqv. .false.) STOP 1
  16 if (parity([.true., .false.]) .neqv. .true.) STOP 2
  17 if (parity([.true.]) .neqv. .true.) STOP 3
  18 if (parity([.false.]) .neqv. .false.) STOP 4
  19 if (parity([.true., .false., .true.,.false.]) .neqv. .false.) STOP 5
  20 if (parity(reshape([.true., .false., .true.,.false.],[2,2])) &
  21     .neqv. .false.) STOP 6
  22 if (any (parity(reshape([.true., .false., .true.,.false.],[2,2]),dim=1) &
  23          .neqv. [.true., .true.])) STOP 7
  24 if (any (parity(reshape([.true., .false., .true.,.false.],[2,2]),dim=2) &
  25          .neqv. [.false., .false.])) STOP 8
  26
  27 i = 0
  28 if (parity(Lt(1:i)) .neqv. .false.) STOP 9
  29 if (parity(Ltf) .neqv. .true.) STOP 10
  30 if (parity(Lt) .neqv. .true.) STOP 11
  31 if (parity(Lf) .neqv. .false.) STOP 12
  32 if (parity(Ltftf) .neqv. .false.) STOP 13
  33 if (parity(reshape(Ltftf,[2,2])) &
  34     .neqv. .false.) STOP 14
  35 if (any (parity(reshape(Ltftf,[2,2]),dim=1) &
  36          .neqv. [.true., .true.])) STOP 15
  37 if (any (parity(reshape(Ltftf,[2,2]),dim=2) &
  38          .neqv. [.false., .false.])) STOP 16
  39
  40 end