OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

New g77 tests

Browse Source 
From-SVN: r25745
This commit is contained in:
Craig Burley 1999-03-13 14:45:03 +00:00 committed by Craig Burley
parent 57544c29d5
commit fe3ab6bd3f
3 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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.

33
gcc/testsuite/g77.f-torture/execute/19990313-0.f Normal file
View File

@ -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.

7
gcc/testsuite/g77.f-torture/execute/19990313-1.f Normal file
View File

@ -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