11 lines
260 B
Forth
11 lines
260 B
Forth
program IntegerLiteral
|
|
|
|
implicit none
|
|
integer, parameter :: dec = 727
|
|
integer, parameter :: hex = Z'2d7'
|
|
integer, parameter :: oct = O'1327'
|
|
integer, parameter :: bin = B'1011010111'
|
|
|
|
print *, dec, hex, oct, bin
|
|
|
|
end program IntegerLiteral
|