From 95fd960d15264857d04b09dc1fa099c7b2e141c1 Mon Sep 17 00:00:00 2001 From: Jeffrey A Law Date: Sun, 28 Jun 1998 11:51:02 +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. From-SVN: r20780 --- gcc/testsuite/ChangeLog | 5 ++ .../g77.f-torture/execute/980628-4.f | 52 +++++++++++++++++++ .../g77.f-torture/execute/980628-5.f | 27 ++++++++++ 3 files changed, 84 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/execute/980628-4.f create mode 100644 gcc/testsuite/g77.f-torture/execute/980628-5.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 27da44aee3d..aa90bcd67b4 100644 --- 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 index 00000000000..20cdb0aa119 --- /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 ; 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, +* 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 index 00000000000..14f39e3c51e --- /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 -- 2.30.2