Here is my update to the GOTO absurdities...
< gotoo.f90 >
[JvO]
! [JvO] 2000-08-31 GOTOO.F90
! THIS IS AN ILLUSTRATING EXAMPLE OF (ALMOST) STANDARD
! FORTRAN PROGRAMMING PRACTICE.
! THE CODE SHOULD COMPILE AND RUN ERROR-FREE ON ALL STANDARD
! FORTRAN COMPILERS.
DATA GOTO7, GOTO1, GOTO5 /1029.,221591.,1048576./
GOTO(I)=MOD(NINT(GOTO6)*NINT(GOTO7)+NINT(GOTO1),NINT(GOTO5))
GOTO 2
1 WRITE(*,*) GOTO8 ,' ===> ',GOTO2 * 6 / GOTO8
GOTO (6) ,NINT(GOTO8 - GOTO10) + 1
GOTO9 = GOTO9 * 2
GOTO(6,7) ,NINT(GOTO3)
2 READ(*,*) GOTO10
GOTO(6) ,NINT(GOTO10) + 1
GOTO2 = 0
GOTO8 = -1
GOTO9 = 2
GOTO3 = GOTO9 + GOTO9
4 GOTO4 = 0
5 GOTO6 = GOTO(1)
GOTO4 = GOTO6 ** 2 / GOTO5 ** 2 + GOTO4
GOTO3 = GOTO3 + 1
GOTO(5,5) ,NINT(GOTO3 - 2)
GOTO3 = GOTO3 - 3
GOTO8 = GOTO8 + 1
GOTO(1) ,NINT(GOTO8 - GOTO10) + 1
GOTO(1) ,NINT(GOTO8 - GOTO9) + 1
7 GOTO(4) ,INT(GOTO4 ** 0.33333333)
GOTO2 = GOTO2 + 1
GOTO 4
6 END
--
Meilleures Salutations,
Kindest Regards,
/---
Jan van Oosterwijk
Computing Centre
Delft University of Technology
Postbus 354
2600 AJ Delft
Netherlands / Pays-Bas
mailto:[log in to unmask]
Phone: +31 15 278 50 17
Fax: +31 15 278 37 87
|