gcc/testsuite/gfortran.dg/masklr_1.F90

   1 ! Test the MASKL and MASKR intrinsics.
   2 !
   3 ! { dg-do run }
   4 ! { dg-options "-ffree-line-length-none" }
   5
   6 #define CHECK(I,KIND,FUNCL,FUNCR,RESL,RESR) \
   7   if (maskl(I,KIND) /= RESL) call abort ; \
   8   if (FUNCL(I) /= RESL) call abort ; \
   9   if (maskr(I,KIND) /= RESR) call abort ; \
  10   if (FUNCR(I) /= RESR) call abort
  11
  12   CHECK(0,1,run_maskl1,run_maskr1,0_1,0_1)
  13   CHECK(1,1,run_maskl1,run_maskr1,-huge(0_1)-1_1,1_1)
  14   CHECK(2,1,run_maskl1,run_maskr1,(-huge(0_1)-1_1)/2_1,3_1)
  15   CHECK(3,1,run_maskl1,run_maskr1,(-huge(0_1)-1_1)/4_1,7_1)
  16   CHECK(int(bit_size(0_1))-2,1,run_maskl1,run_maskr1,-4_1,huge(0_1)/2_1)
  17   CHECK(int(bit_size(0_1))-1,1,run_maskl1,run_maskr1,-2_1,huge(0_1))
  18   CHECK(int(bit_size(0_1)),1,run_maskl1,run_maskr1,-1_1,-1_1)
  19
  20   CHECK(0,2,run_maskl2,run_maskr2,0_2,0_2)
  21   CHECK(1,2,run_maskl2,run_maskr2,-huge(0_2)-1_2,1_2)
  22   CHECK(2,2,run_maskl2,run_maskr2,(-huge(0_2)-1_2)/2_2,3_2)
  23   CHECK(3,2,run_maskl2,run_maskr2,(-huge(0_2)-1_2)/4_2,7_2)
  24   CHECK(int(bit_size(0_2))-2,2,run_maskl2,run_maskr2,-4_2,huge(0_2)/2_2)
  25   CHECK(int(bit_size(0_2))-1,2,run_maskl2,run_maskr2,-2_2,huge(0_2))
  26   CHECK(int(bit_size(0_2)),2,run_maskl2,run_maskr2,-1_2,-1_2)
  27
  28   CHECK(0,4,run_maskl4,run_maskr4,0_4,0_4)
  29   CHECK(1,4,run_maskl4,run_maskr4,-huge(0_4)-1_4,1_4)
  30   CHECK(2,4,run_maskl4,run_maskr4,(-huge(0_4)-1_4)/2_4,3_4)
  31   CHECK(3,4,run_maskl4,run_maskr4,(-huge(0_4)-1_4)/4_4,7_4)
  32   CHECK(int(bit_size(0_4))-2,4,run_maskl4,run_maskr4,-4_4,huge(0_4)/2_4)
  33   CHECK(int(bit_size(0_4))-1,4,run_maskl4,run_maskr4,-2_4,huge(0_4))
  34   CHECK(int(bit_size(0_4)),4,run_maskl4,run_maskr4,-1_4,-1_4)
  35
  36   CHECK(0,8,run_maskl8,run_maskr8,0_8,0_8)
  37   CHECK(1,8,run_maskl8,run_maskr8,-huge(0_8)-1_8,1_8)
  38   CHECK(2,8,run_maskl8,run_maskr8,(-huge(0_8)-1_8)/2_8,3_8)
  39   CHECK(3,8,run_maskl8,run_maskr8,(-huge(0_8)-1_8)/4_8,7_8)
  40   CHECK(int(bit_size(0_8))-2,8,run_maskl8,run_maskr8,-4_8,huge(0_8)/2_8)
  41   CHECK(int(bit_size(0_8))-1,8,run_maskl8,run_maskr8,-2_8,huge(0_8))
  42   CHECK(int(bit_size(0_8)),8,run_maskl8,run_maskr8,-1_8,-1_8)
  43
  44 contains
  45
  46   pure integer(kind=1) function run_maskl1(i) result(res)
  47     integer, intent(in) :: i
  48     res = maskl(i,kind=1)
  49   end function
  50   pure integer(kind=1) function run_maskr1(i) result(res)
  51     integer, intent(in) :: i
  52     res = maskr(i,kind=1)
  53   end function
  54
  55   pure integer(kind=2) function run_maskl2(i) result(res)
  56     integer, intent(in) :: i
  57     res = maskl(i,kind=2)
  58   end function
  59   pure integer(kind=2) function run_maskr2(i) result(res)
  60     integer, intent(in) :: i
  61     res = maskr(i,kind=2)
  62   end function
  63
  64   pure integer(kind=4) function run_maskl4(i) result(res)
  65     integer, intent(in) :: i
  66     res = maskl(i,kind=4)
  67   end function
  68   pure integer(kind=4) function run_maskr4(i) result(res)
  69     integer, intent(in) :: i
  70     res = maskr(i,kind=4)
  71   end function
  72
  73   pure integer(kind=8) function run_maskl8(i) result(res)
  74     integer, intent(in) :: i
  75     res = maskl(i,kind=8)
  76   end function
  77   pure integer(kind=8) function run_maskr8(i) result(res)
  78     integer, intent(in) :: i
  79     res = maskr(i,kind=8)
  80   end function
  81
  82 end