1 * Date: Wed
, 25 Jun
1997 12:48:26 +0200 (MET DST
)
3 * From
: R
.Hooft@EuroMail
.com
(Rob Hooft
)
4 * To: g77
-alpha@gnu
.ai
.mit
.edu
5 * Subject
: Re
: testing
970624.
6 * In
-Reply
-To: <199706251027.GAA07892@churchy
.gnu
.ai
.mit
.edu
>
7 * References
: <199706251018.MAA21538@nu
>
8 * <199706251027.GAA07892@churchy
.gnu
.ai
.mit
.edu
>
9 * X
-Mailer
: VM
6.30 under Emacs
19.34.1
10 * Content
-Type
: text
/plain
; charset
=US
-ASCII
12 * >>>>> "CB" == Craig Burley
<burley@gnu
.ai
.mit
.edu
> writes
:
14 * CB
> but OTOH I
'd like to see more problems like this on other
15 * CB> applications, and especially other systems
17 * How about this one: An application that prints "112." on all
18 * compilers/platforms I have tested, except with the new g77 on ALPHA (I
19 * don't have the new g77 on any other platform here
to test
)?
21 * Application Appended
. Source code courtesy of my boss
.....
22 * Disclaimer
: I
do not know the right answer
, or even whether there is a
23 * single right answer
.....
27 * ===== R
.Hooft@EuroMail
.com http
://www
.Sander
.EMBL
-Heidelberg
.DE
/rob
/ ==
28 * ==== In need of protein modeling? http
://www
.Sander
.EMBL
-Heidelberg
.DE
/whatif
/
29 * Validation of protein structures? http
://biotech
.EMBL
-Heidelberg
.DE
:8400/ ====
30 * == PGPid
0xFA19277D == Use Linux
! Free Software Rules The World
! =============
32 * nu
[152]for% cat humor
.f
35 INTEGER REAL, GO TO PROGRAM, WHILE, THEN, END DO
37 DATA
IF,REAL,END DO,WHILE,FORMAT(2),I2
/2,6,7,1,112.,1/
38 DO THEN=1, END DO, WHILE
41 ELSE IF = THEN .GT
. IF
42 IF (THEN.GT
.REAL) THEN
43 CALL FUNCTION PROGRAM (ELSE IF, GO TO PROGRAM, THEN) ! { dg
-error
"Type mismatch in argument" }
44 ELSE IF (ELSE IF) THEN
48 10 FORMAT(I2
/I2
) = WHILE*REAL*THEN
49 IF (FORMAT(I2
) .NE
. FORMAT(I2
+I2
)) STOP 1
51 SUBROUTINE FUNCTION PROGRAM (REAL,INTEGER, LOGICAL)
54 INTEGER INTEGER, STOP, RETURN, GO TO
55 ASSIGN
9 TO STOP ! { dg
-warning
"ASSIGN" }
57 ASSIGN
7 TO RETURN ! { dg
-warning
"ASSIGN" }
58 ASSIGN
9 TO GO TO ! { dg
-warning
"ASSIGN" }
61 IF (.NOT
.REAL) GOTO STOP ! { dg
-warning
"Assigned GOTO" }
62 IF (LOGICAL.GT
.INTEGER) THEN
64 IF (LOGICAL.EQ
.5) ASSIGN
5 TO IF ! { dg
-warning
"ASSIGN" }
67 IF (ASSIGN
.GT
.STOP) ASSIGN
9 TO GOTO ! { dg
-warning
"ASSIGN" }
70 IF (.NOT
.REAL.AND
.GOTO.GT
.ELSE) GOTO RETURN ! { dg
-warning
"Assigned GOTO" }
73 7 LOGICAL=LOGICAL+STOP
76 * nu
[153]for% f77 humor
.f
79 * nu
[155]for% f90 humor
.f
82 * nu
[157]for% g77 humor
.f