초기 FORTRAN의 재미있는 분기문

상당히 초기 언어인 FORTRAN은 분기 명령어 GO TO와 IF문을 지원한다. 그런데 재미있는 분기문이 지원되고 있었으니 산술 IF, 계산 GO TO, 대입 GO TO가 바로 그러한 GO TO다. 이러한 분기문은 switch와 같은 문장이 없던 시절에 다중 분기문의 역할을 톡톡히 해냈다고 볼 수 있다.

1) 산술 IF(arithmetic IF): E의 값이 0보다 작으면 10, 0이면 20, 0보다 크면 30으로 분기한다.

     IF (E) 10, 20, 30 10 ... 20 ... 30 ...

2) 계산 GO TO(computed GO TO): N의 값이 1이면 10, 2면 20, 3이면 30, 4면 40으로 분기한다.

     GO TO ( 10, 20, 30, 40 ), N ... 10 ... 20 ... 30 ... 40 ...  

3) 대입 GO TO(assigned GO TO): 분기할 레이블을 변수에 직접 대입하고(N = 10과 같은 뜻) 그 결과를 이용하여 분기한다.

     ASSIGN 10 TO N ... GO TO N 10 ... 20 ... 30 ...

4) 대입 GO TO의 변형: N의 값이 10, 20, 30 중 하나임을 나타낸다.

     ASSIGN 10 TO N ... GO TO N ( 10, 20, 30 ) 10 ... 20 ... 30 ...