crazy fortran

Разбирая старые файлы, наткнулся на вот такой фортрановский код. Автор кода - Stan Rabinowitz (на тот момент работавший в VAX); читателю предлагалось найти место, в котором VAX Fortran compiler выдаст ошибку.


program segment
C
C
C
IMPLICIT INTEGER *2(O), LOGICAL(T-U)
COMMON// UNCOMMON// COMMON
INTEGER FLOATING_POINT
REAL IMAGINARY
COMPLEX SIMPLE
INTRINSIC EXIT
EXTERN ALL,SOME,NONE
SAVE NOW
DOUBLE PRECISION A = 3
ASSIGN 3 TOO THREE
3 FORMAT((()))
IF (THEN) THEN
END IF
E
1 N
2 D
DOUBLE COMPLEX FUNCTION FN(ARG1,DOUBLE FN,DOUBLE)
COMPLEX DOUBLE FN(ARG1)
DIMENSION DOUBLE(-8:-7,-6:*)
VIRTUAL STORAGE(8/7)
COMPLEX*1 6MEN_IN_A_BOAT, THEN THERE WERE 5
UNLOCK THE DOOR
IF (1) 2,3,4
4 IF (4HCLUB) 37, 6, 5
5 DO 37 I=1.5
CALL F(04*05,*06)
37 CONTINUE
6 STOP '4X'
2 A='4X'
3 A='4'X
DELETE (3)
INSANITY=%LOC(1.2D5)
RETURN
END
SUB ROUTINE FORMAT(*)
REAL ROUTINE ______
REAL(ROUTINE)=1E1
DO WHILE (1 .NEQV. 2)
READ(ERR=7,UNIT=7)
123 READ(3'X)
456 READ *,X
*89 READ(UNIT=*,X)
777 READ UNIT=9
ENDDO
007 CALL FRAME(A ONE, &2, AND A 3)
2 Q=3Q1
ENTRYST(Z 9)
RETURN
71
END
REAL*4 ROUTINE TRICKY
END
IMPLICIT INTEGER*4(X), INTEGER*2(O-Q)
DIMENSIONLESS VAR(1**1)
BYTE BYTE
0 DO 1, I=2,3
100 FORMAT(I7.4,Z8.2,G5.2e4,2p/TL7Q:$!L1,B12.9,J6
X SPSSBZQX'garbage')
101 FORMAT(<(1,2)>I)
102 FORMAT(L This entry was originally posted at http://profpr.dreamwidth.org/415562.html. Please comment there using OpenID.