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)
42 logical function bytesizesok()
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
64 end function bytesizesok