diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com> | 2004-09-01 06:30:04 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2004-09-01 06:30:04 +0000 |
| commit | 727c24076a2be2246189da357ad97b5ec8df8d9d (patch) | |
| tree | 1a3d98b4f36c2542ae0e7883a58c077686967d79 /gcc | |
| parent | f9a024084fa2fb9dd89d19019e473eb7dae61e08 (diff) | |
| download | gcc-727c24076a2be2246189da357ad97b5ec8df8d9d.zip gcc-727c24076a2be2246189da357ad97b5ec8df8d9d.tar.gz gcc-727c24076a2be2246189da357ad97b5ec8df8d9d.tar.bz2 | |
re PR fortran/16579 (gfortran: (ICHAR(CHAR(I)) .NE. I) when 128 <= I <= 255)
2004-09-01 David Billinghurst <David.Billinghurst@riotinto.com>
PR fortran/16579
* gfortran.dg/g77/20010610.f: Now passes.
Copy from g77.f-torture/execute. Add dg-run directive.
* gfortran.dg/g77/README: Update
From-SVN: r86876
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/20010610.f | 5 | ||||
| -rwxr-xr-x | gcc/testsuite/gfortran.dg/g77/README | 2 |
3 files changed, 13 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e74cfac..d2fdc6a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2004-09-01 David Billinghurst <David.Billinghurst@riotinto.com> + + PR fortran/16579 + * gfortran.dg/g77/20010610.f: Now passes. + Copy from g77.f-torture/execute. Add dg-run directive. + * gfortran.dg/g77/README: Update + 2004-08-31 Andrew Pinski <pinskia@physics.uc.edu> * gcc.dg/rs6000-power2-1.c (t1, t2, t3, t4): Add volatile. diff --git a/gcc/testsuite/gfortran.dg/g77/20010610.f b/gcc/testsuite/gfortran.dg/g77/20010610.f new file mode 100644 index 0000000..5adbcd6 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/20010610.f @@ -0,0 +1,5 @@ +c { dg-do run } + DO I = 0, 255 + IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT + ENDDO + END diff --git a/gcc/testsuite/gfortran.dg/g77/README b/gcc/testsuite/gfortran.dg/g77/README index 2605369..4e143e4 100755 --- a/gcc/testsuite/gfortran.dg/g77/README +++ b/gcc/testsuite/gfortran.dg/g77/README @@ -135,7 +135,7 @@ g77.f-torture/execute 20010116.f Y 20010426.f renamed 20010426-1.f Y 20010430.f Y -20010610.f F PR 16579 Execution test fails +20010610.f Y 5122.f - Assembler failure 6177.f Y 6367.f & 6367.x |