diff options
| author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-28 13:57:18 +0000 |
|---|---|---|
| committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-28 13:57:18 +0000 |
| commit | 36ded7528dd0dc250a8f001ad7e5daa6d57c1ad1 (patch) | |
| tree | 39b41301d8b25ac70b1b922625e546323bd3ca16 /gcc/testsuite/g77.f-torture/execute/980628-1.f | |
| parent | 687b3232afbec7fafe657c7939e08871c78962c0 (diff) | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@20782 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/980628-1.f')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/980628-1.f | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-1.f b/gcc/testsuite/g77.f-torture/execute/980628-1.f new file mode 100644 index 00000000000..6ab0a0a81a8 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/980628-1.f @@ -0,0 +1,62 @@ +* 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 + + real r1(5), r2(5), r3(5) + double precision d1, d2, d3 + integer i1, i2, i3 + equivalence (r1(2), d1) + equivalence (r2(2), d2) + equivalence (r3(2), d3) + + r1(1) = 1. + d1 = 10. + r1(4) = 1. + r1(5) = 1. + i1 = 1 + r2(1) = 2. + d2 = 20. + r2(4) = 2. + r2(5) = 2. + i2 = 2 + r3(1) = 3. + d3 = 30. + r3(4) = 3. + r3(5) = 3. + i3 = 3 + + call x (r1, d1, i1, r2, d2, i2, r3, d3, i3) + + end + + subroutine x (r1, d1, i1, r2, d2, i2, r3, d3, i3) + implicit none + + real r1(5), r2(5), r3(5) + double precision d1, d2, d3 + integer i1, i2, i3 + + if (r1(1) .ne. 1.) call abort + if (d1 .ne. 10.) call abort + if (r1(4) .ne. 1.) call abort + if (r1(5) .ne. 1.) call abort + if (i1 .ne. 1) call abort + if (r2(1) .ne. 2.) call abort + if (d2 .ne. 20.) call abort + if (r2(4) .ne. 2.) call abort + if (r2(5) .ne. 2.) call abort + if (i2 .ne. 2) call abort + if (r3(1) .ne. 3.) call abort + if (d3 .ne. 30.) call abort + if (r3(4) .ne. 3.) call abort + if (r3(5) .ne. 3.) call abort + if (i3 .ne. 3) call abort + + end |