Someone recently found my blog by searching for the phrase “fibonacci series by goto in fortran 77”:

Never let it be said that I am not a man of the people:

      SUBROUTINE FIB(N)
INTEGER N,I,F0,F1,TMP
I=0
1060 IF(N.GT.0)THEN
GOTO6129
ELSE
GOTO7290
ENDIF
6129 WRITE(*,3502) 1
N=N-1
I=I+1
IF(I.LT.2)THEN
GOTO1060
ELSE
GOTO9321
ENDIF
9321 CONTINUE
F0 = 1
F1 = 1
I = 2
3502 FORMAT(I6)
N=N+1
2714 TMP = F1
F1 = F1 + F0
F0 = TMP
WRITE(*,3502) F1
IF(I.LT.N)THEN
I = I + 1
GOTO2714
ENDIF
7290 C
$O$    N
$T$      I
$N$  U
$E ENDSUBROUTINE PROGRAM MAIN INTEGER N N=12 CALL FIB(N) END  Compile with f77: $f77 FIB.F  && ./a.out
1
1
2
3
5
8
13
21
34
55
89
144