[ForTran 11]Computed Goto statement
program computed goto
integer day
write(*,*)'Enter the day of a week'
read(*,*)day
goto (10,12,13,15,16,18,20),day
10 write(*,*)'The day is Sunday'
goto 25
12 write(*,*)'The day is Monday'
goto 25
13 write(*,*)'The day is Tuesday'
goto 25
15 write(*,*)'The day is Wednesday'
goto 25
16 write(*,*)'The day is Thursday'
goto 25
18 write(*,*)'The day is Friday'
goto 25
20 write(*,*)'The day is Saturday'
25 stop
end