33 integer,
parameter :: OneByteInt = selected_int_kind(2), &
34 TwoByteInt = selected_int_kind(4), &
35 FourByteInt = selected_int_kind(9), &
36 EightByteInt = selected_int_kind(18)
38 integer,
parameter :: &
39 FourByteReal = selected_real_kind(P = 6, R = 37), &
40 EightByteReal = selected_real_kind(P = 13, R = 307)
51 integer (kind = OneByteInt) :: one
52 integer (kind = TwoByteInt) :: two
53 integer (kind = FourByteInt) :: four
54 integer (kind = EightByteInt) :: eight
56 if (bit_size( one) == 8 .and. bit_size( two) == 16 .and. &
57 bit_size(four) == 32 .and. bit_size( eight) == 64 .and. &
58 fourbytereal > 0 .and. eightbytereal > 0 .and. &
59 fourbytereal /= eightbytereal)
then
logical function bytesizesok()