2 ! { dg-require-effective-target fortran_large_int }
4 ! Testing library calls on large integer kinds (larger than kind=8)
7 integer,parameter :: k = selected_int_kind (range (0_8) + 1)
9 integer(kind=k) :: i, j
12 i = 0; j = 1; a = i; b = j
13 if (i ** j /= a ** b) call abort