Commit 6df9867e by David Billinghurst Committed by David Billinghurst

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

2004-09-03  David Billinghurst <David.Billinghurst@riotinto.com>

	PR fortran/16579
	* gfortran.fortran-torture/execute/intrinsic_i_char.f90:
	Delete.  Duplicate of gfortran.dg/g77/20010610.f

From-SVN: r87024
parent 1b08d87d
2004-09-03 David Billinghurst <David.Billinghurst@riotinto.com>
PR fortran/16579
* gfortran.fortran-torture/execute/intrinsic_i_char.f90:
Delete. Duplicate of gfortran.dg/g77/20010610.f
2004-09-02 Mark Mitchell <mark@codesourcery.com> 2004-09-02 Mark Mitchell <mark@codesourcery.com>
* g++.dg/abi/arm_rtti1.C: New test. * g++.dg/abi/arm_rtti1.C: New test.
......
! simple test for the CHAR and ICHAR intrinsics
! PR 16579
DO I=0,255
IF (ICHAR(CHAR(I)) /= I) CALL ABORT()
END DO
END
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment