15 lines
No EOL
303 B
Text
15 lines
No EOL
303 B
Text
program p5
|
|
integer :: counter, limit
|
|
subroutine printUntilLimit
|
|
if (counter <= limit) then
|
|
print counter, ' '
|
|
counter = counter + 1
|
|
printUntilLimit()
|
|
end if
|
|
end subroutine
|
|
print 'Enter the limit number: '
|
|
read limit
|
|
counter = 0
|
|
printUntilLimit()
|
|
print endline
|
|
end program |