1 ! Program to test SELECTED_INT_KIND intrinsic function.
12 res
= selected_int_kind (int (t
))
13 if (res
.ne
. 1) call abort
17 res
= selected_int_kind (int (t
))
18 if (res
.ne
. 2) call abort
22 res
= selected_int_kind (int (t
))
23 if (res
.ne
. 4) call abort
27 res
= selected_int_kind (int (t
))
28 if (res
.ne
. 8) call abort
31 res
= selected_int_kind (i4
)
32 if (res
.ne
. (-1)) call abort