Program Goto
  Implicit None
  Integer :: a=10,n

   Print *, 'Input n=1,2,3 '
   Read *, n
   
   If (n==0) GoTo 40
   GoTo (10,20,30) n
   10 a=a+1
      GoTo 40
   20 a=a+2
      GoTo 40
   30 a=a+3
   40 Print *, 'a = ',a
End Program GoTo