Fortran 千本ノック 3

15本目 gotoを使う

 

  implicit none
  integer::i
  i = 2
   
  if (i .eq. 2) go to 10
   
  print *,"after if"
   
10   print *,"at 10"
 
  print *,"end"