14 lines
305 B
FortranFixed
14 lines
305 B
FortranFixed
|
program Intseq
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer, parameter :: i64 = selected_int_kind(18)
|
||
|
|
integer(i64) :: n = 1
|
||
|
|
|
||
|
|
! n is declared as a 64 bit signed integer so the program will display up to
|
||
|
|
! 9223372036854775807 before overflowing to -9223372036854775808
|
||
|
|
do
|
||
|
|
print*, n
|
||
|
|
n = n + 1
|
||
|
|
end do
|
||
|
|
end program
|