diff options
author | No Author <no-author@gcc.gnu.org> | 2001-02-19 14:33:58 +0000 |
---|---|---|
committer | No Author <no-author@gcc.gnu.org> | 2001-02-19 14:33:58 +0000 |
commit | 078d5231d4e49508cfddf3cbcda2d0a0e513ac52 (patch) | |
tree | ea0c47499a7187f73d7d489a24d19ad5fc42988d /gcc/testsuite/g77.f-torture/execute/980628-3.f | |
parent | e8cbc2e256b3e9568288594d9f90a2015d31b55a (diff) | |
download | gcc-prereleases/gcc-2.95.3-test4.tar.gz |
This commit was manufactured by cvs2svn to create tagprereleases/gcc-2.95.3-test4
'gcc-2_95_3-test4'.
From-SVN: r39882
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/980628-3.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/980628-3.f | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-3.f b/gcc/testsuite/g77.f-torture/execute/980628-3.f deleted file mode 100644 index 47e6ea57301..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/980628-3.f +++ /dev/null @@ -1,56 +0,0 @@ -* 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 - save - - 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 |