More g77 tests

From-SVN: r25751

More g77 tests
From-SVN: r25751
98941e01 · Craig Burley · Craig Burley · bf1fc762 · 98941e01 · 98941e01
Commit 98941e01 authored Mar 13, 1999 by Craig Burley Committed by Craig Burley Mar 13, 1999
Hide whitespace changes
Inline Side-by-side

Showing with 19 additions and 0 deletions

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/g77.f-torture/execute/19990313-2.f
+7 -0

gcc/testsuite/g77.f-torture/execute/19990313-3.f
+7 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
 1999-03-13  Craig Burley  <craig@jcb-sc.com>

+	* g77.f-torture/execute/19990313-2.f: New test.
+	* g77.f-torture/execute/19990313-3.f: New test.
+
+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.


--- a/gcc/testsuite/g77.f-torture/execute/19990313-2.f
+++ b/gcc/testsuite/g77.f-torture/execute/19990313-2.f
+        integer *8 foo, bar
+	complex c
+        data c/(4e10,0)/
+        foo = 4e10
+        bar = c
+        if (foo .ne. bar) call abort
+        end
--- a/gcc/testsuite/g77.f-torture/execute/19990313-3.f
+++ b/gcc/testsuite/g77.f-torture/execute/19990313-3.f
+        integer *8 foo, bar
+	double complex c
+        data c/(4d10,0)/
+        foo = 4d10
+        bar = c
+        if (foo .ne. bar) call abort
+        end