[ForTran 10]Uncomputed Goto Statement
program goto
write(*,*)'Enter two integers :'
read(*,*)i,j
goto 1
s=i+j
1 s=i+j+1
write(*,*)'The value of s is :',s
end
program goto
write(*,*)'Enter two integers :'
read(*,*)i,j
goto 1
s=i+j
1 s=i+j+1
write(*,*)'The value of s is :',s
end