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