From fe3ab6bd3f869c21b4984a1da05e639ea1f764f4 Mon Sep 17 00:00:00 2001
From: Craig Burley <craig@jcb-sc.com>
Date: Sat, 13 Mar 1999 14:45:03 +0000
Subject: [PATCH] New g77 tests

From-SVN: r25745
---
 gcc/testsuite/ChangeLog                       |  5 +++
 .../g77.f-torture/execute/19990313-0.f        | 33 +++++++++++++++++++
 .../g77.f-torture/execute/19990313-1.f        |  7 ++++
 3 files changed, 45 insertions(+)
 create mode 100644 gcc/testsuite/g77.f-torture/execute/19990313-0.f
 create mode 100644 gcc/testsuite/g77.f-torture/execute/19990313-1.f

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 14e4dc78fb7..837ef5224ea 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 00000000000..abf898fb793
--- /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 00000000000..d99c72f2fde
--- /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