8 lines
173 B
Forth
8 lines
173 B
Forth
program test
|
|
|
|
implicit none
|
|
integer,parameter :: t = 10*9*8*7*6*5*4*3*2 !computed at compile time
|
|
|
|
write(*,*) t !write the value the console.
|
|
|
|
end program test
|