포트란은 오래된 프로그래밍언어이지만 아직까지도 현업에 과학계산용으로 많이 쓰이고 있다.
물리학 계열에서 많이 쓰인다고는 하나,
범용 컴파일러는 아니므로 일반적인 IT기업에서는 전혀 사용되지 않는다.
현재 77를 넘어 90스펙까지 나왔지만, 77를 기준으로 공부하면 되겠다.
77에 비해 90은 소스코드 작성시 컬럼에 맞춰 코딩해야 하는 코딩규칙을 완화하는 등
유연성이 높아졌다.
현재 상용 포트란 컴파일러 아래 2개 제품이 유명하다.
Compaq Visual Fortran Microsoft Visual Studio의 IDE에 통합되어 사용할 수 있으므로 사용이 무척 편리하다.
현재 컴팩이 HP와 통합된 관계로 6.6버전을 마지막으로 더 이상 출시되지 않는다.
해서, 인텔 포트란 컴파일러로 이전되는 추세이다.
구URL: http://www.compaq.com/fortran/
설치법
1. 압축파일을 풀면 G77폴더가 생김
2. G77폴더에서 g77setup.bat를 수정하고 실행(C:\G77로 되어 있는 부분을 압축을 푼 디렉토리로 지정)
3. g77로 컴파일/실행
D:\temp>type a.f
C 1에서 10까지 합을 구함
integer sum
n = 10
sum = 0
10 n = n + 1
sum = sum + n
if(n .lt. 10) goto 10
write(6,60) sum
60 format(2X, '실행결과: ', I2)
stop
end
D:\temp>g77 a.f
RM/COBOL-85 Compiler - Version 5.01.06 for DOS 2.00+
윈도에서 마땅한 코볼 컴파일러도 없고, 도스용이라 컴파일이 느림
사용법
D:\>type gugudan.cbl
IDENTIFICATION DIVISION.
PROGRAM-ID. GUGUDAN.
*----------------------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-PC.
OBJECT-COMPUTER. IBM-PC.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PRINT-F ASSIGN TO OUTPUT "GUGU.PRN"
ORGANIZATION IS LINE SEQUENTIAL.
*----------------------------------------------------------------
DATA DIVISION.
FILE SECTION.
FD PRINT-F LABEL RECORD IS STANDARD.
01 PRINT-R PIC X(80).
WORKING-STORAGE SECTION.
77 I PIC 99.
77 J PIC 99.
77 K PIC 99.
01 TITLE.
02 FIL PIC X(3) VALUE SPACE.
02 FIL PIC X(20) VALUE ">>> 구 구 단 <<<".
01 GUGUDAN.
02 FIL PIC X(8) VALUE SPACE.
02 GI PIC 9.
02 FIL PIC X(3) VALUE " * ".
02 GJ PIC 9.
02 FIL PIC X(3) VALUE " = ".
02 GK PIC Z9.
*----------------------------------------------------------------
PROCEDURE DIVISION.
SIJAK.
OPEN OUTPUT PRINT-F.
MOVE SPACE TO PRINT-R.
WRITE PRINT-R FROM TITLE.
PERFORM GUGUDAN
VARYING I FROM 2 BY 1 UNTIL I > 9
AFTER J FROM 1 BY 1 UNTIL J > 9.
CLOSE PRINT-F.
STOP RUN.
GUGUDAN.
COMPUTE K = I * J.
MOVE I TO GI.
MOVE J TO GJ.
MOVE K TO GK.
WRITE PRINT-R FROM GUGUDAN.
D:\>rmcobol gugudan.cbl RM/COBOL-85 Compiler - Version 5.01.06 for DOS 2.00+.
Copyright (c) 1985, 1990 by Ryan McFarland Corp. All rights reserved.
Registration number: GK-0390-00000-99
Total generated object size: 748 (X"000002EC") bytes
Errors: 0, Warnings: 0, Lines: 47 for program GUGUDAN.
Compilation complete -- Programs: 1, Errors: 0, Warnings: 0.
D:\>run gugudan.cob RM/COBOL-85 Runtime - Version 5.01.06 for DOS 2.00+.
Configured for 001 user.
Copyright (c) 1985, 1990 by Ryan McFarland Corp. All rights reserved.
Registration Number: GL-0315-00034-01
COBOL STOP RUN at line 41 in GUGUDAN.COB (D:\GUGUDAN.COB).