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.

From-SVN: r20781

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aa90bcd67b41ea1acbda2c59f12c5a68690c4b91..82b34e1590319effd70b2bc66adaa31fc1776ee4 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -2,6 +2,7 @@ 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.
+       * g77.f-torture/execute/980628-2.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-2.f b/gcc/testsuite/g77.f-torture/execute/980628-2.f
new file mode 100644 (file)
index 0000000..a140e7d
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980628-2.f
@@ -0,0 +1,55 @@
+* 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.
+
+      call subr
+      end
+
+      subroutine subr
+      implicit none
+
+      character c1(11), c2(11), c3(11)
+      real r1, r2, r3
+      character c4, c5, c6
+      equivalence (c1(2), r1)
+      equivalence (c2(2), r2)
+      equivalence (c3(2), r3)
+
+      c1(1) = '1'
+      r1 = 1.
+      c1(11) = '1'
+      c4 = '4'
+      c2(1) = '2'
+      r2 = 2.
+      c2(11) = '2'
+      c5 = '5'
+      c3(1) = '3'
+      r3 = 3.
+      c3(11) = '3'
+      c6 = '6'
+
+      call x (c1, r1, c2, r2, c3, r3, c4, c5, c6)
+
+      end
+
+      subroutine x (c1, r1, c2, r2, c3, r3, c4, c5, c6)
+      implicit none
+
+      character c1(11), c2(11), c3(11)
+      real r1, r2, r3
+      character c4, c5, c6
+
+      if (c1(1) .ne. '1') call abort
+      if (r1 .ne. 1.) call abort
+      if (c1(11) .ne. '1') call abort
+      if (c4 .ne. '4') call abort
+      if (c2(1) .ne. '2') call abort
+      if (r2 .ne. 2.) call abort
+      if (c2(11) .ne. '2') call abort
+      if (c5 .ne. '5') call abort
+      if (c3(1) .ne. '3') call abort
+      if (r3 .ne. 3.) call abort
+      if (c3(11) .ne. '3') call abort
+      if (c6 .ne. '6') call abort
+
+      end

diff --git a/gcc/testsuite/g77.f-torture/execute/980628-4.f b/gcc/testsuite/g77.f-torture/execute/980628-4.f
index 20cdb0aa119fcb41cdf74b5c42e3cf1194e15ffc..40bd6e6df51b018246dcd7877e3b7cad613b3057 100644 (file)
--- a/gcc/testsuite/g77.f-torture/execute/980628-4.f
+++ b/gcc/testsuite/g77.f-torture/execute/980628-4.f
@@ -1,28 +1,3 @@
-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,