More g77 tests
authorCraig Burley <craig@jcb-sc.com>
Sat, 13 Mar 1999 15:33:56 +0000 (15:33 +0000)
committerCraig Burley <burley@gcc.gnu.org>
Sat, 13 Mar 1999 15:33:56 +0000 (10:33 -0500)
From-SVN: r25751

gcc/testsuite/ChangeLog
gcc/testsuite/g77.f-torture/execute/19990313-2.f [new file with mode: 0644]
gcc/testsuite/g77.f-torture/execute/19990313-3.f [new file with mode: 0644]

index 837ef5224ea96f1a64abce349b2f86e65a5fa4df..19e73dba8ed2eb9ed10f52499b3ed22d5a5d92d1 100644 (file)
@@ -1,3 +1,8 @@
+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.
diff --git a/gcc/testsuite/g77.f-torture/execute/19990313-2.f b/gcc/testsuite/g77.f-torture/execute/19990313-2.f
new file mode 100644 (file)
index 0000000..ffb7549
--- /dev/null
@@ -0,0 +1,7 @@
+        integer *8 foo, bar
+       complex c
+        data c/(4e10,0)/
+        foo = 4e10
+        bar = c
+        if (foo .ne. bar) call abort
+        end
diff --git a/gcc/testsuite/g77.f-torture/execute/19990313-3.f b/gcc/testsuite/g77.f-torture/execute/19990313-3.f
new file mode 100644 (file)
index 0000000..6366dcc
--- /dev/null
@@ -0,0 +1,7 @@
+        integer *8 foo, bar
+       double complex c
+        data c/(4d10,0)/
+        foo = 4d10
+        bar = c
+        if (foo .ne. bar) call abort
+        end