diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-05-26 14:08:56 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-05-26 14:08:56 +0000 |
| commit | 75466740df8860b592b9171a44ed8a8a7c6c2099 (patch) | |
| tree | 50b8cecaf5dcb8c50e3cac6d9b1b45df6288db66 | |
| parent | 31b72b87a0042e34db0c3498e3bd9a31dbe4c137 (diff) | |
| download | gcc-75466740df8860b592b9171a44ed8a8a7c6c2099.zip gcc-75466740df8860b592b9171a44ed8a8a7c6c2099.tar.gz gcc-75466740df8860b592b9171a44ed8a8a7c6c2099.tar.bz2 | |
Add runtime test.
From-SVN: r20063
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/alpha2.f | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/alpha2.f b/gcc/testsuite/g77.f-torture/execute/alpha2.f index c224171..d7b9d39 100644 --- a/gcc/testsuite/g77.f-torture/execute/alpha2.f +++ b/gcc/testsuite/g77.f-torture/execute/alpha2.f @@ -1,3 +1,4 @@ +c This was originally a compile test. IMPLICIT REAL*8 (A-H,O-Z) COMMON /C/ A(9), INT DATA A / @@ -5,5 +6,14 @@ 2 0.29996921166596490D01, 0.20016917082678680D01, 3 0.99126390351864390D00, 0.97963256554443300D-01, 4 -0.87360964813570100D-02, 0.16917082678692080D-02, - 5 -0.26013651283774820D-05 / + 5 7./ +C Data values were once mis-compiled on (OSF/1 ?) Alpha with -O2 +c such that, for instance, `7.' appeared as `4.' in the assembler +c output. + call test(a(9), 7) END + subroutine test(r, i) + double precision r + if (nint(r)/=i) call abort + end + |