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.

From-SVN: r20780

3 files changed, 84 insertions, 0 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 27da44a..aa90bcd 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Sun Jun 28 12:49:02 1998  Jeffrey A Law  (law@cygnus.com)
+
+	* g77.f-torture/execute/980628-4.f: New test from Craig.
+	* g77.f-torture/execute/980628-5.f: Likewise.
+
 Sun Jun 28 00:37:26 1998  Jeffrey A Law  (law@cygnus.com)
 
 	* lib/g77.exp (default_g77_version): Tweak to make it work in a build
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-4.f b/gcc/testsuite/g77.f-torture/execute/980628-4.f
new file mode 100644
index 0000000..20cdb0a
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980628-4.f
@@ -0,0 +1,52 @@
+Return-Path: owner-egcs-patches@cygnus.com Sun
+Received: from cygnus.com (runyon.cygnus.com [205.180.230.5]) by hurl.cygnus.com with ESMTP (8.7.1/8.7.1) id MAA10053 for <law@hurl.cygnus.com>; Sun, 28 Jun 1998 12:17:16 -0600 (MDT)
+Received: (from majordom@localhost)
+	by runyon.cygnus.com (8.8.7-cygnus/8.8.7) id KAA00502;
+	Sun, 28 Jun 1998 10:47:22 -0700 (PDT)
+Received: from mescaline.gnu.org (mescaline.gnu.org [158.121.106.21])
+	by runyon.cygnus.com (8.8.7-cygnus/8.8.7) with ESMTP id KAA00498
+	for <egcs-patches@cygnus.com>; Sun, 28 Jun 1998 10:47:20 -0700 (PDT)
+Received: from melange.gnu.org by mescaline.gnu.org (8.8.5/8.6.12GNU) with ESMTP id NAA19412 for <egcs-patches@cygnus.com>; Sun, 28 Jun 1998 13:47:38 -0400
+Received: (burley@localhost) by melange.gnu.org (8.8.5/8.6.12GNU) id NAA11299; Sun, 28 Jun 1998 13:47:18 -0400 (EDT)
+Date: Sun, 28 Jun 1998 13:47:18 -0400 (EDT)
+Message-Id: <199806281747.NAA11299@melange.gnu.org>
+From: Craig Burley <burley@gnu.org>
+To: egcs-patches@cygnus.com
+Subject: More g77 tests (1 of 2)
+Sender: owner-egcs-patches@cygnus.com
+Precedence: bulk
+
+Jeff, could you please install this as:
+
+  egcs/gcc/testsuite/g77-f.torture/execute/980628-4.f
+
+        tq vm, (burley)
+
+
+* 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
+
+      real r
+      double precision d
+      common /cmn/ r, d
+
+      if (r .ne. 1.) call abort
+      if (d .ne. 10.) call abort
+
+      end
+
+      block data init
+      implicit none
+
+      real r
+      double precision d
+      common /cmn/ r, d
+
+      data r/1./, d/10./
+
+      end
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-5.f b/gcc/testsuite/g77.f-torture/execute/980628-5.f
new file mode 100644
index 0000000..14f39e3
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980628-5.f
@@ -0,0 +1,27 @@
+* 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
+      common /cmn/ c, d
+
+      if (c .ne. '1') call abort
+      if (d .ne. 10.) call abort
+
+      end
+
+      block data init
+      implicit none
+
+      character c
+      double precision d
+      common /cmn/ c, d
+
+      data c/'1'/, d/10./
+
+      end