From b0d45b7466551a15e6734144b03e13397af90a14 Mon Sep 17 00:00:00 2001 From: Jeffrey A Law Date: Sun, 28 Jun 1998 19:49:44 +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. * g77.f-torture/execute/980628-0.f: Likewise. * g77.f-torture/execute/980628-1.f: Likewise. * g77.f-torture/execute/980628-3.f: Likewise. * g77.f-torture/execute/980628-6.f: Likewise. From-SVN: r20783 --- gcc/testsuite/ChangeLog | 1 + gcc/testsuite/g77.f-torture/execute/980628-6.f | 26 ++++++++++++++++++++++++++ 2 files changed, 27 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/execute/980628-6.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3d7c2af..827b128 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -6,6 +6,7 @@ Sun Jun 28 12:49:02 1998 Jeffrey A Law (law@cygnus.com) * g77.f-torture/execute/980628-0.f: Likewise. * g77.f-torture/execute/980628-1.f: Likewise. * g77.f-torture/execute/980628-3.f: Likewise. + * g77.f-torture/execute/980628-6.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-6.f b/gcc/testsuite/g77.f-torture/execute/980628-6.f new file mode 100644 index 0000000..c5ade65 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/980628-6.f @@ -0,0 +1,26 @@ +* 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(100) + common /cmn/ c, d + + if (d(80) .ne. 10.) call abort + + end + + block data init + implicit none + + character c + double precision d(100) + common /cmn/ c, d + + data d(80)/10./ + + end -- 2.7.4