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) STOP 1 14 15 t = huge (i2) 16 t = log10 (t) 17 res = selected_int_kind (int (t)) 18 if (res .ne. 2) STOP 2 19 20 t = huge (i4) 21 t = log10 (t) 22 res = selected_int_kind (int (t)) 23 if (res .ne. 4) STOP 3 24 25 t = huge (i8) 26 t = log10 (t) 27 res = selected_int_kind (int (t)) 28 if (res .ne. 8) STOP 4 29 30 i4 = huge (i4) 31 res = selected_int_kind (i4) 32 if (res .ne. (-1)) STOP 5 33 34end program 35 36