New (old) tests, just started failing this past week
From-SVN: r25615
This commit is contained in:
parent
dff01034e5
commit
158281d7a3
|
@ -1,3 +1,8 @@
|
|||
1999-03-06 Craig Burley <craig@jcb-sc.com>
|
||||
|
||||
* g77.f-torture/execute/960317-1.f: New (old) test.
|
||||
* g77.f-torture/execute/970625-2.f: Ditto.
|
||||
|
||||
Mon Mar 1 23:29:14 1999 Jeffrey A Law (law@cygnus.com)
|
||||
|
||||
* g++.old-deja/g++.law/weak1.C: New test.
|
||||
|
|
|
@ -0,0 +1,103 @@
|
|||
* Date: Sat, 16 Mar 1996 19:58:37 -0500 (EST)
|
||||
* From: Kate Hedstrom <kate@ahab.Rutgers.EDU>
|
||||
* To: burley@gnu.ai.mit.edu
|
||||
* Subject: g77 bug in assign
|
||||
*
|
||||
* I found some files in the NCAR graphics source code which used to
|
||||
* compile with g77 and now don't. All contain the following combination
|
||||
* of "save" and "assign". It fails on a Sun running SunOS 4.1.3 and a
|
||||
* Sun running SunOS 5.5 (slightly older g77), but compiles on an
|
||||
* IBM/RS6000:
|
||||
*
|
||||
C
|
||||
SUBROUTINE QUICK
|
||||
SAVE
|
||||
C
|
||||
ASSIGN 101 TO JUMP
|
||||
101 Continue
|
||||
C
|
||||
RETURN
|
||||
END
|
||||
*
|
||||
* Everything else in the NCAR distribution compiled, including quite a
|
||||
* few C routines.
|
||||
*
|
||||
* Kate
|
||||
*
|
||||
*
|
||||
* nemo% g77 -v -c quick.f
|
||||
* gcc -v -c -xf77 quick.f
|
||||
* Reading specs from /usr/local/lib/gcc-lib/sparc-sun-sunos4.1.3/2.7.2/specs
|
||||
* gcc version 2.7.2
|
||||
* /usr/local/lib/gcc-lib/sparc-sun-sunos4.1.3/2.7.2/f771 quick.f -fset-g77-defaults -quiet -dumpbase quick.f -version -fversion -o /usr/tmp/cca24166.s
|
||||
* GNU F77 version 2.7.2 (sparc) compiled by GNU C version 2.7.1.
|
||||
* GNU Fortran Front End version 0.5.18-960314 compiled: Mar 16 1996 14:28:11
|
||||
* gcc: Internal compiler error: program f771 got fatal signal 11
|
||||
*
|
||||
*
|
||||
* nemo% gdb /usr/local/lib/gcc-lib/*/*/f771 core
|
||||
* GDB is free software and you are welcome to distribute copies of it
|
||||
* under certain conditions; type "show copying" to see the conditions.
|
||||
* There is absolutely no warranty for GDB; type "show warranty" for details.
|
||||
* GDB 4.14 (sparc-sun-sunos4.1.3),
|
||||
* Copyright 1995 Free Software Foundation, Inc...
|
||||
* Core was generated by `f771'.
|
||||
* Program terminated with signal 11, Segmentation fault.
|
||||
* Couldn't read input and local registers from core file
|
||||
* find_solib: Can't read pathname for load map: I/O error
|
||||
*
|
||||
* Couldn't read input and local registers from core file
|
||||
* #0 0x21aa4 in ffecom_sym_transform_assign_ (s=???) at f/com.c:7881
|
||||
* 7881 if ((ffesymbol_save (s) || ffe_is_saveall ())
|
||||
* (gdb) where
|
||||
* #0 0x21aa4 in ffecom_sym_transform_assign_ (s=???) at f/com.c:7881
|
||||
* Error accessing memory address 0xefffefcc: Invalid argument.
|
||||
* (gdb)
|
||||
*
|
||||
*
|
||||
* ahab% g77 -v -c quick.f
|
||||
* gcc -v -c -xf77 quick.f
|
||||
* Reading specs from /usr/local/lib/gcc-lib/sparc-sun-solaris2.5/2.7.2/specs
|
||||
* gcc version 2.7.2
|
||||
* /usr/local/lib/gcc-lib/sparc-sun-solaris2.5/2.7.2/f771 quick.f -quiet -dumpbase quick.f -version -fversion -o /var/tmp/cca003D2.s
|
||||
* GNU F77 version 2.7.2 (sparc) compiled by GNU C version 2.7.2.
|
||||
* GNU Fortran Front End version 0.5.18-960304 compiled: Mar 5 1996 16:12:46
|
||||
* gcc: Internal compiler error: program f771 got fatal signal 11
|
||||
*
|
||||
*
|
||||
* ahab% !gdb
|
||||
* gdb /usr/local/lib/gcc-lib/*/*/f771 core
|
||||
* GDB is free software and you are welcome to distribute copies of it
|
||||
* under certain conditions; type "show copying" to see the conditions.
|
||||
* There is absolutely no warranty for GDB; type "show warranty" for details.
|
||||
* GDB 4.15.1 (sparc-sun-solaris2.4),
|
||||
* Copyright 1995 Free Software Foundation, Inc...
|
||||
* Core was generated by
|
||||
* `/usr/local/lib/gcc-lib/sparc-sun-solaris2.5/2.7.2/f771 quick.f -quiet -dumpbase'.
|
||||
* Program terminated with signal 11, Segmentation fault.
|
||||
* Reading symbols from /usr/lib/libc.so.1...done.
|
||||
* Reading symbols from /usr/lib/libdl.so.1...done.
|
||||
* #0 0x43e04 in ffecom_sym_transform_assign_ (s=0x3a22f8) at f/com.c:7963
|
||||
* Source file is more recent than executable.
|
||||
* 7963 assert (st != NULL);
|
||||
* (gdb) where
|
||||
* #0 0x43e04 in ffecom_sym_transform_assign_ (s=0x3a22f8) at f/com.c:7963
|
||||
* #1 0x38044 in ffecom_expr_ (expr=0x3a23c0, dest_tree=0x0, dest=0x0, dest_used=0x0, assignp=true) at f/com.c:2100
|
||||
* #2 0x489c8 in ffecom_expr_assign_w (expr=0x3a23c0) at f/com.c:10238
|
||||
* #3 0xe9228 in ffeste_R838 (label=0x3a1ba8, target=0x3a23c0) at f/ste.c:2769
|
||||
* #4 0xdae60 in ffestd_stmt_pass_ () at f/std.c:840
|
||||
* #5 0xdc090 in ffestd_exec_end () at f/std.c:1405
|
||||
* #6 0xcb534 in ffestc_shriek_subroutine_ (ok=true) at f/stc.c:4849
|
||||
* #7 0xd8f00 in ffestc_R1225 (name=0x0) at f/stc.c:12307
|
||||
* #8 0xcc808 in ffestc_end () at f/stc.c:5572
|
||||
* #9 0x9fa84 in ffestb_end3_ (t=0x3a19c8) at f/stb.c:3216
|
||||
* #10 0x9f30c in ffestb_end (t=0x3a19c8) at f/stb.c:2995
|
||||
* #11 0x98414 in ffesta_save_ (t=0x3a19c8) at f/sta.c:453
|
||||
* #12 0x997ec in ffesta_second_ (t=0x3a19c8) at f/sta.c:1178
|
||||
* #13 0x8ed84 in ffelex_send_token_ () at f/lex.c:1614
|
||||
* #14 0x8cab8 in ffelex_finish_statement_ () at f/lex.c:946
|
||||
* #15 0x91684 in ffelex_file_fixed (wf=0x397780, f=0x37a560) at f/lex.c:2946
|
||||
* #16 0x107a94 in ffe_file (wf=0x397780, f=0x37a560) at f/top.c:456
|
||||
* #17 0x96218 in yyparse () at f/parse.c:77
|
||||
* #18 0x10beac in compile_file (name=0xdffffaf7 "quick.f") at toplev.c:2239
|
||||
* #19 0x110dc0 in main (argc=9, argv=0xdffff994, envp=0xdffff9bc) at toplev.c:3927
|
|
@ -0,0 +1,82 @@
|
|||
* Date: Wed, 25 Jun 1997 12:48:26 +0200 (MET DST)
|
||||
* MIME-Version: 1.0
|
||||
* From: R.Hooft@EuroMail.com (Rob Hooft)
|
||||
* To: g77-alpha@gnu.ai.mit.edu
|
||||
* Subject: Re: testing 970624.
|
||||
* In-Reply-To: <199706251027.GAA07892@churchy.gnu.ai.mit.edu>
|
||||
* References: <199706251018.MAA21538@nu>
|
||||
* <199706251027.GAA07892@churchy.gnu.ai.mit.edu>
|
||||
* X-Mailer: VM 6.30 under Emacs 19.34.1
|
||||
* Content-Type: text/plain; charset=US-ASCII
|
||||
*
|
||||
* >>>>> "CB" == Craig Burley <burley@gnu.ai.mit.edu> writes:
|
||||
*
|
||||
* CB> but OTOH I'd like to see more problems like this on other
|
||||
* CB> applications, and especially other systems
|
||||
*
|
||||
* How about this one: An application that prints "112." on all
|
||||
* compilers/platforms I have tested, except with the new g77 on ALPHA (I
|
||||
* don't have the new g77 on any other platform here to test)?
|
||||
*
|
||||
* Application Appended. Source code courtesy of my boss.....
|
||||
* Disclaimer: I do not know the right answer, or even whether there is a
|
||||
* single right answer.....
|
||||
*
|
||||
* Regards,
|
||||
* --
|
||||
* ===== R.Hooft@EuroMail.com http://www.Sander.EMBL-Heidelberg.DE/rob/ ==
|
||||
* ==== In need of protein modeling? http://www.Sander.EMBL-Heidelberg.DE/whatif/
|
||||
* Validation of protein structures? http://biotech.EMBL-Heidelberg.DE:8400/ ====
|
||||
* == PGPid 0xFA19277D == Use Linux! Free Software Rules The World! =============
|
||||
*
|
||||
* nu[152]for% cat humor.f
|
||||
PROGRAM SUBROUTINE
|
||||
LOGICAL ELSE IF
|
||||
INTEGER REAL, GO TO PROGRAM, WHILE
|
||||
DATA IF,REAL,END DO , WHILE /2,6,7,1/
|
||||
DO THEN=1, END DO, WHILE
|
||||
CALL = END DO - IF
|
||||
PROGRAM = THEN - IF
|
||||
ELSE IF = THEN .GT. IF
|
||||
IF (THEN.GT.REAL) THEN
|
||||
CALL FUNCTION PROGRAM (ELSE IF, GO TO PROGRAM, THEN)
|
||||
ELSE IF (ELSE IF) THEN
|
||||
REAL = THEN + END DO
|
||||
END IF
|
||||
END DO
|
||||
WRITE (*,*) WHILE*REAL*THEN
|
||||
END ! DO
|
||||
SUBROUTINE FUNCTION PROGRAM (REAL,INTEGER, LOGICAL)
|
||||
LOGICAL REAL
|
||||
REAL LOGICAL
|
||||
INTEGER INTEGER, STOP, RETURN, GO TO
|
||||
ASSIGN 9 TO STOP
|
||||
ASSIGN = 9 + LOGICAL
|
||||
ASSIGN 7 TO RETURN
|
||||
ASSIGN 9 TO GO TO
|
||||
GO TO = 5
|
||||
STOP = 8
|
||||
IF (.NOT.REAL) GOTO STOP
|
||||
IF (LOGICAL.GT.INTEGER) THEN
|
||||
IF = LOGICAL +5
|
||||
IF (LOGICAL.EQ.5) ASSIGN 5 TO IF
|
||||
INTEGER=IF
|
||||
ELSE
|
||||
IF (ASSIGN.GT.STOP) ASSIGN 9 TO GOTO
|
||||
ELSE = GO TO
|
||||
END IF = ELSE + GO TO
|
||||
IF (.NOT.REAL.AND.GOTO.GT.ELSE) GOTO RETURN
|
||||
END IF
|
||||
5 CONTINUE
|
||||
7 LOGICAL=LOGICAL+STOP
|
||||
9 RETURN
|
||||
END ! IF
|
||||
* nu[153]for% f77 humor.f
|
||||
* nu[154]for% ./a.out
|
||||
* 112.0000
|
||||
* nu[155]for% f90 humor.f
|
||||
* nu[156]for% ./a.out
|
||||
* 112.0000
|
||||
* nu[157]for% g77 humor.f
|
||||
* nu[158]for% ./a.out
|
||||
* 40.
|
Loading…
Reference in New Issue