[ForTran 13]Arithematic If Statement in ForTran
Program using Arithematic if in ForTran:
program arithmetic_if
integer num
write(*,*)'Enter an integer :'
read(*,*)num
if(num) 3,2,1
2 write(*,*)num,'is zero'
goto 5
3 write(*,*)num,'is negative'
goto 5
1 write(*,*)num,'is Positive'
5 stop
end