* g77.f-torture/execute/980628-4.f: New test from Craig.

        * g77.f-torture/execute/980628-5.f: Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@20780 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 27da44a..aa90bcd 100644 (file)
--- 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 (file)
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 (file)
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