diff options
| author | Jeffrey A Law <law@cygnus.com> | 1998-06-28 19:49:44 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-06-28 13:49:44 -0600 |
| commit | b0d45b7466551a15e6734144b03e13397af90a14 (patch) | |
| tree | 2a066b39b5eb8761024e36659ce51560ac6f7e38 | |
| parent | 3d727c42161d7e2ed8a3e74985fc8e9081909c54 (diff) | |
| download | gcc-b0d45b7466551a15e6734144b03e13397af90a14.zip gcc-b0d45b7466551a15e6734144b03e13397af90a14.tar.gz gcc-b0d45b7466551a15e6734144b03e13397af90a14.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 1 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/980628-6.f | 26 |
2 files changed, 27 insertions, 0 deletions
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 |