diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dshift_1.F90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dshift_1.F90 | 177 |
1 files changed, 177 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/dshift_1.F90 b/gcc/testsuite/gfortran.dg/dshift_1.F90 new file mode 100644 index 000000000..ce2a5f432 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/dshift_1.F90 @@ -0,0 +1,177 @@ +! Test the DSHIFTL and DSHIFTR intrinsics. +! +! { dg-do run } +! { dg-options "-ffree-line-length-none" } + + implicit none + + interface run_dshiftl + procedure dshiftl_1 + procedure dshiftl_2 + procedure dshiftl_4 + procedure dshiftl_8 + end interface + interface run_dshiftr + procedure dshiftr_1 + procedure dshiftr_2 + procedure dshiftr_4 + procedure dshiftr_8 + end interface + +#define RESL(I,J,SHIFT) \ + IOR(SHIFTL(I,SHIFT),SHIFTR(J,BIT_SIZE(J)-SHIFT)) +#define RESR(I,J,SHIFT) \ + IOR(SHIFTL(I,BIT_SIZE(I)-SHIFT),SHIFTR(J,SHIFT)) + +#define CHECK(I,J,SHIFT) \ + if (dshiftl(I,J,SHIFT) /= RESL(I,J,SHIFT)) call abort ; \ + if (dshiftr(I,J,SHIFT) /= RESR(I,J,SHIFT)) call abort ; \ + if (run_dshiftl(I,J,SHIFT) /= RESL(I,J,SHIFT)) call abort ; \ + if (run_dshiftr(I,J,SHIFT) /= RESR(I,J,SHIFT)) call abort + + CHECK(0_1,0_1,0) + CHECK(0_1,0_1,1) + CHECK(0_1,0_1,7) + CHECK(0_1,0_1,8) + CHECK(28_1,79_1,0) + CHECK(28_1,79_1,1) + CHECK(28_1,79_1,5) + CHECK(28_1,79_1,7) + CHECK(28_1,79_1,8) + CHECK(-28_1,79_1,0) + CHECK(-28_1,79_1,1) + CHECK(-28_1,79_1,5) + CHECK(-28_1,79_1,7) + CHECK(-28_1,79_1,8) + CHECK(28_1,-79_1,0) + CHECK(28_1,-79_1,1) + CHECK(28_1,-79_1,5) + CHECK(28_1,-79_1,7) + CHECK(28_1,-79_1,8) + CHECK(-28_1,-79_1,0) + CHECK(-28_1,-79_1,1) + CHECK(-28_1,-79_1,5) + CHECK(-28_1,-79_1,7) + CHECK(-28_1,-79_1,8) + + CHECK(0_2,0_2,0) + CHECK(0_2,0_2,1) + CHECK(0_2,0_2,7) + CHECK(0_2,0_2,8) + CHECK(28_2,79_2,0) + CHECK(28_2,79_2,1) + CHECK(28_2,79_2,5) + CHECK(28_2,79_2,7) + CHECK(28_2,79_2,8) + CHECK(-28_2,79_2,0) + CHECK(-28_2,79_2,1) + CHECK(-28_2,79_2,5) + CHECK(-28_2,79_2,7) + CHECK(-28_2,79_2,8) + CHECK(28_2,-79_2,0) + CHECK(28_2,-79_2,1) + CHECK(28_2,-79_2,5) + CHECK(28_2,-79_2,7) + CHECK(28_2,-79_2,8) + CHECK(-28_2,-79_2,0) + CHECK(-28_2,-79_2,1) + CHECK(-28_2,-79_2,5) + CHECK(-28_2,-79_2,7) + CHECK(-28_2,-79_2,8) + + CHECK(0_4,0_4,0) + CHECK(0_4,0_4,1) + CHECK(0_4,0_4,7) + CHECK(0_4,0_4,8) + CHECK(28_4,79_4,0) + CHECK(28_4,79_4,1) + CHECK(28_4,79_4,5) + CHECK(28_4,79_4,7) + CHECK(28_4,79_4,8) + CHECK(-28_4,79_4,0) + CHECK(-28_4,79_4,1) + CHECK(-28_4,79_4,5) + CHECK(-28_4,79_4,7) + CHECK(-28_4,79_4,8) + CHECK(28_4,-79_4,0) + CHECK(28_4,-79_4,1) + CHECK(28_4,-79_4,5) + CHECK(28_4,-79_4,7) + CHECK(28_4,-79_4,8) + CHECK(-28_4,-79_4,0) + CHECK(-28_4,-79_4,1) + CHECK(-28_4,-79_4,5) + CHECK(-28_4,-79_4,7) + CHECK(-28_4,-79_4,8) + + CHECK(0_8,0_8,0) + CHECK(0_8,0_8,1) + CHECK(0_8,0_8,7) + CHECK(0_8,0_8,8) + CHECK(28_8,79_8,0) + CHECK(28_8,79_8,1) + CHECK(28_8,79_8,5) + CHECK(28_8,79_8,7) + CHECK(28_8,79_8,8) + CHECK(-28_8,79_8,0) + CHECK(-28_8,79_8,1) + CHECK(-28_8,79_8,5) + CHECK(-28_8,79_8,7) + CHECK(-28_8,79_8,8) + CHECK(28_8,-79_8,0) + CHECK(28_8,-79_8,1) + CHECK(28_8,-79_8,5) + CHECK(28_8,-79_8,7) + CHECK(28_8,-79_8,8) + CHECK(-28_8,-79_8,0) + CHECK(-28_8,-79_8,1) + CHECK(-28_8,-79_8,5) + CHECK(-28_8,-79_8,7) + CHECK(-28_8,-79_8,8) + + +contains + + function dshiftl_1 (i, j, shift) result(res) + integer(kind=1) :: i, j, res + integer :: shift + res = dshiftl(i,j,shift) + end function + function dshiftl_2 (i, j, shift) result(res) + integer(kind=2) :: i, j, res + integer :: shift + res = dshiftl(i,j,shift) + end function + function dshiftl_4 (i, j, shift) result(res) + integer(kind=4) :: i, j, res + integer :: shift + res = dshiftl(i,j,shift) + end function + function dshiftl_8 (i, j, shift) result(res) + integer(kind=8) :: i, j, res + integer :: shift + res = dshiftl(i,j,shift) + end function + + function dshiftr_1 (i, j, shift) result(res) + integer(kind=1) :: i, j, res + integer :: shift + res = dshiftr(i,j,shift) + end function + function dshiftr_2 (i, j, shift) result(res) + integer(kind=2) :: i, j, res + integer :: shift + res = dshiftr(i,j,shift) + end function + function dshiftr_4 (i, j, shift) result(res) + integer(kind=4) :: i, j, res + integer :: shift + res = dshiftr(i,j,shift) + end function + function dshiftr_8 (i, j, shift) result(res) + integer(kind=8) :: i, j, res + integer :: shift + res = dshiftr(i,j,shift) + end function + +end |