1! Program to test SELECTED_INT_KIND intrinsic function. 2Program test_si_kind 3 integer*1 i1 4 integer*2 i2 5 integer*4 i4 6 integer*8 i8 7 integer res 8 real t 9 10 t = huge (i1) 11 t = log10 (t) 12 res = selected_int_kind (int (t)) 13 if (res .ne. 1) call abort 14 15 t = huge (i2) 16 t = log10 (t) 17 res = selected_int_kind (int (t)) 18 if (res .ne. 2) call abort 19 20 t = huge (i4) 21 t = log10 (t) 22 res = selected_int_kind (int (t)) 23 if (res .ne. 4) call abort 24 25 t = huge (i8) 26 t = log10 (t) 27 res = selected_int_kind (int (t)) 28 if (res .ne. 8) call abort 29 30 i4 = huge (i4) 31 res = selected_int_kind (i4) 32 if (res .ne. (-1)) call abort 33 34end program 35 36