OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

980628-4.f: New test from Craig.

Browse Source 
* 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
This commit is contained in:
Jeffrey A Law 1998-06-28 12:50:59 +00:00 committed by Jeff Law
parent 95fd960d15
commit f2843edbf7
3 changed files with 56 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/testsuite/ChangeLog
View File

@ -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)

55
gcc/testsuite/g77.f-torture/execute/980628-2.f Normal file
View File

@ -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

25
gcc/testsuite/g77.f-torture/execute/980628-4.f
View File

@ -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,