diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-03-13 14:45:03 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-03-13 09:45:03 -0500 |
| commit | fe3ab6bd3f869c21b4984a1da05e639ea1f764f4 (patch) | |
| tree | 9a3d583008933a67ad457d06785f7fccfd39f048 | |
| parent | 57544c29d50e6394e2a5f7e5e74f27b865fbfe1f (diff) | |
| download | gcc-fe3ab6bd3f869c21b4984a1da05e639ea1f764f4.zip gcc-fe3ab6bd3f869c21b4984a1da05e639ea1f764f4.tar.gz gcc-fe3ab6bd3f869c21b4984a1da05e639ea1f764f4.tar.bz2 | |
New g77 tests
From-SVN: r25745
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19990313-0.f | 33 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19990313-1.f | 7 |
3 files changed, 45 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 14e4dc7..837ef52 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +1999-03-13 Craig Burley <craig@jcb-sc.com> + + * g77.f-torture/execute/19990313-0.f: New test. + * g77.f-torture/execute/19990313-1.f: New test. + 1999-03-08 Craig Burley <craig@jcb-sc.com> * g77.f-torture/execute/19981119-0.f: Improve testiness. diff --git a/gcc/testsuite/g77.f-torture/execute/19990313-0.f b/gcc/testsuite/g77.f-torture/execute/19990313-0.f new file mode 100644 index 0000000..abf898f --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/19990313-0.f @@ -0,0 +1,33 @@ +* To: craig@jcb-sc.com +* Subject: Re: G77 and KIND=2 +* Content-Type: text/plain; charset=us-ascii +* From: Dave Love <d.love@dl.ac.uk> +* Date: 03 Mar 1999 18:20:11 +0000 +* In-Reply-To: craig@jcb-sc.com's message of "1 Mar 1999 21:04:38 -0000" +* User-Agent: Gnus/5.07007 (Pterodactyl Gnus v0.70) Emacs/20.3 +* X-UIDL: d442bafe961c2a6ec6904f492e05d7b0 +* +* ISTM that there is a real problem printing integer*8 (on x86): +* +* $ cat x.f +*[modified for test suite] + integer *8 foo, bar + data r/4e10/ + foo = 4e10 + bar = r + if (foo .ne. bar) call abort + end +* $ g77 x.f && ./a.out +* 1345294336 +* 123 +* $ f2c x.f && g77 x.c && ./a.out +* x.f: +* MAIN: +* 40000000000 +* 123 +* $ +* +* Gdb shows the upper half of the buffer passed to do_lio is zeroed in +* the g77 case. +* +* I've forgotten how the code generation happens. diff --git a/gcc/testsuite/g77.f-torture/execute/19990313-1.f b/gcc/testsuite/g77.f-torture/execute/19990313-1.f new file mode 100644 index 0000000..d99c72f --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/19990313-1.f @@ -0,0 +1,7 @@ + integer *8 foo, bar + double precision r + data r/4d10/ + foo = 4d10 + bar = r + if (foo .ne. bar) call abort + end |