From f2843edbf78130cbec8bf5ddb3ea270ea6562ec7 Mon Sep 17 00:00:00 2001 From: Jeffrey A Law Date: Sun, 28 Jun 1998 12:50:59 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 1 + gcc/testsuite/g77.f-torture/execute/980628-2.f | 55 ++++++++++++++++++++++++++ gcc/testsuite/g77.f-torture/execute/980628-4.f | 25 ------------ 3 files changed, 56 insertions(+), 25 deletions(-) create mode 100644 gcc/testsuite/g77.f-torture/execute/980628-2.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index aa90bcd..82b34e1 100644 --- 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 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 20cdb0a..40bd6e6 100644 --- 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 ; 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 ; 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 ; 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 -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, -- 2.7.4