FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/16579 (gfortran: (ICHAR(CHAR(I)) .NE. I) when 128 <= I <= 255)

Browse source 
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
This commit is contained in:
David Billinghurst 2004-09-01 06:30:04 +00:00 • committed by David Billinghurst
parent f9a024084f
commit 727c24076a
3 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

@ -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.

5
gcc/testsuite/gfortran.dg/g77/20010610.f Normal file
View file

@ -0,0 +1,5 @@
c { dg-do run }
DO I = 0, 255
IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
ENDDO
END

2
gcc/testsuite/gfortran.dg/g77/README
View file

@ -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