33 integer,
parameter ::
onebyteint = selected_int_kind(2), &
38 integer,
parameter :: &
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. &
integer, parameter twobyteint
integer, parameter fourbytereal
logical function bytesizesok()
integer, parameter eightbyteint
integer, parameter eightbytereal
integer, parameter fourbyteint
integer, parameter onebyteint