980628-4.f: New test from Craig.

        * g77.f-torture/execute/980628-4.f: New test from Craig.
        * g77.f-torture/execute/980628-5.f: Likewise.
        * g77.f-torture/execute/980628-2.f: Likewise.
        * g77.f-torture/execute/980628-0.f: Likewise.
        * g77.f-torture/execute/980628-1.f: Likewise.
        * g77.f-torture/execute/980628-3.f: Likewise.
        * g77.f-torture/execute/980628-6.f: Likewise.

From-SVN: r20783

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3d7c2af..827b128 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -6,6 +6,7 @@ Sun Jun 28 12:49:02 1998  Jeffrey A Law  (law@cygnus.com)
        * g77.f-torture/execute/980628-0.f: Likewise.
        * g77.f-torture/execute/980628-1.f: Likewise.
        * g77.f-torture/execute/980628-3.f: Likewise.
+       * g77.f-torture/execute/980628-6.f: Likewise.
 
 Sun Jun 28 00:37:26 1998  Jeffrey A Law  (law@cygnus.com)
 

diff --git a/gcc/testsuite/g77.f-torture/execute/980628-6.f b/gcc/testsuite/g77.f-torture/execute/980628-6.f
new file mode 100644 (file)
index 0000000..c5ade65
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980628-6.f
@@ -0,0 +1,26 @@
+* g77 0.5.23 and previous had bugs involving too little space
+* allocated for EQUIVALENCE and COMMON areas needing initial
+* padding to meet alignment requirements of the system,
+* including when initial values are provided (e.g. DATA).
+
+      program test
+      implicit none
+
+      character c
+      double precision d(100)
+      common /cmn/ c, d
+
+      if (d(80) .ne. 10.) call abort
+
+      end
+
+      block data init
+      implicit none
+
+      character c
+      double precision d(100)
+      common /cmn/ c, d
+
+      data d(80)/10./
+
+      end