diff options
author | no-author <no-author@gcc.gnu.org> | 2003-05-13 02:18:51 +0000 |
---|---|---|
committer | no-author <no-author@gcc.gnu.org> | 2003-05-13 02:18:51 +0000 |
commit | 7b844c65adcaf4c622c8ac7f58d8625d192ebabe (patch) | |
tree | ca23e5ee0c63d476a45ee4008d83e597b2d7a945 /gcc/testsuite/g77.f-torture | |
parent | 07a592b900470c2483dab1805b026888d32d6216 (diff) |
This commit was manufactured by cvs2svn to create branch
'tree-ssa-20020619-branch'.
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/tree-ssa-20020619-branch@66747 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
-rw-r--r-- | gcc/testsuite/g77.f-torture/compile/8485.f | 8 | ||||
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/int8421.f | 20 |
2 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/8485.f b/gcc/testsuite/g77.f-torture/compile/8485.f new file mode 100644 index 00000000000..95e58fbfc18 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/8485.f @@ -0,0 +1,8 @@ +C Extracted from PR fortran/8485 + PARAMETER (PPMULT = 1.0E5) + INTEGER*8 NWRONG + PARAMETER (NWRONG = 8) + PARAMETER (DDMULT = PPMULT * NWRONG) + PRINT 10, DDMULT +10 FORMAT (F10.3) + END diff --git a/gcc/testsuite/g77.f-torture/execute/int8421.f b/gcc/testsuite/g77.f-torture/execute/int8421.f new file mode 100644 index 00000000000..1fcc3bc4c9f --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/int8421.f @@ -0,0 +1,20 @@ + integer*1 i1, i11 + integer*2 i2, i22 + integer i, ii + integer*4 i4, i44 + integer*8 i8, i88 + real r, rr + real*4 r4, r44 + double precision d, dd + real*8 r8, r88 + parameter (i1 = 1, i2 = 2, i4 = 4, i = 5, i8 = i + i4*i2 + i2*i1) + parameter (r = 3.0, r4 = 4.0, r8 = 8.d0, d = i8*r + r4*i2 + r8*i1) + if (i8 .ne. 15 ) call abort + if (d .ne. 61.d0) call abort + i11 = 1; i22 = 2; i44 = 4; ii = 5 + i88 = i + i4*i2 + i2*i1 + if (i88 .ne. i8) call abort + rr = 3.0; r44 = 4.0; r88 = 8.0d0 + dd = i88*rr + r44*i22 + r88*i11 + if (dd .ne. d) call abort + end |