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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86846
138bc75d-0d04-0410-961f-
82ee72b054a4
2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+ PR fortran/16579
+ * trans-types.c (gfc_init_types): Make gfc_character1_type_node an
+ unsigned char.
+
+2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
* CONTRIB, NEWS, README, TODO: Remove obsolete files.
2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PUSH_TYPE (name_buf, type);
}
- gfc_character1_type_node = build_type_variant (signed_char_type_node, 0, 0);
+ gfc_character1_type_node = build_type_variant (unsigned_char_type_node,
+ 0, 0);
PUSH_TYPE ("char", gfc_character1_type_node);
PUSH_TYPE ("byte", unsigned_char_type_node);
+2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/16579
+ * gfortran.fortran-torture/execute/intrinsic_i_char.f90: New test.
+
2004-08-31 Bud Davis <bdavis9659@comcast.net>
PR libfortran/16805
--- /dev/null
+! simple test for the CHAR and ICHAR intrinsics
+! PR 16579
+DO I=0,255
+ IF (ICHAR(CHAR(I)) /= I) CALL ABORT()
+END DO
+END