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.

From-SVN: r20780
This commit is contained in:
Jeffrey A Law 1998-06-28 11:51:02 +00:00 committed by Jeff Law
parent 6cd5dccd5e
commit 95fd960d15
3 changed files with 84 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

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

52
gcc/testsuite/g77.f-torture/execute/980628-4.f Normal file
View File

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

27
gcc/testsuite/g77.f-torture/execute/980628-5.f Normal file
View File

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