■実行例

JOB CARD

//FORTHCLG JOB (001),'FORTRAN H FIBONACCI', 
//             CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) 
//FIBONACC EXEC FORTHCLG,REGION.FORT=384K      
//FORT.SYSLIN DD UNIT=SYSDA               
//FORT.SYSABEND DD SYSOUT=A        
//FORT.SYSIN DD *                         
C    
C     FIBONACCI
C
      READ(35, 100) N
  100 FORMAT(I8)
      IFIB0 = 0
      IFIB1 = 1
      WRITE(6, 200) IFIB0
      WRITE(6, 200) IFIB1
  200 FORMAT(1H , I12)
      DO 10 I = 2, N
       IFIB2 = IFIB0 + IFIB1          
       IFIB0 = IFIB1                                
       IFIB1 = IFIB2            
       WRITE(6, 200) IFIB2                                     
   10 CONTINUE                              
      STOP                                 
      END                                     
//GO.FT35F001 DD *                          
      10                              

unit番号35番のファイルから整数を読み込み、その数のフィボナッチ数列を求めて出力する。
出力結果はだらだらと長いですが、終わりのほうに実行結果が書かれます。