diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/large_integer_kind_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/large_integer_kind_2.f90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/large_integer_kind_2.f90 b/gcc/testsuite/gfortran.dg/large_integer_kind_2.f90 new file mode 100644 index 00000000000..68e64ab8ee4 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/large_integer_kind_2.f90 @@ -0,0 +1,15 @@ +! { dg-do run } +! { dg-require-effective-target fortran_large_int } + +! Testing library calls on large integer kinds (larger than kind=8) + implicit none + + integer,parameter :: k = selected_int_kind (range (0_8) + 1) + + integer(kind=k) :: i, j + integer(8) :: a, b + + i = 0; j = 1; a = i; b = j + if (i ** j /= a ** b) call abort + +end |