re PR fortran/16579 (gfortran: (ICHAR(CHAR(I)) .NE. I) when 128 <= I <= 255)
authorTobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Tue, 31 Aug 2004 21:54:24 +0000 (23:54 +0200)
committerTobias Schlüter <tobi@gcc.gnu.org>
Tue, 31 Aug 2004 21:54:24 +0000 (23:54 +0200)
commit149a42dd2de169de9252db751ec1200db50c23aa
tree194d4b80e1d56c5b2328e11c7ceb0a39a118535c
parent334ff453eaa61a47ee9b45b273a0a8057697060e
re PR fortran/16579 (gfortran: (ICHAR(CHAR(I)) .NE. I)  when 128 <= I <= 255)

fortran/
PR fortran/16579
* trans-types.c (gfc_init_types): Make gfc_character1_type_node an
unsigned char.

testsuite/
PR fortran/16579
* gfortran.fortran-torture/execute/intrinsic_i_char.f90: New test.

From-SVN: r86846
gcc/fortran/ChangeLog
gcc/fortran/trans-types.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_i_char.f90 [new file with mode: 0644]