From bc31cbf4a5126a58237991238411b09df982a655 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 15 Jan 2007 17:39:28 +0000 Subject: [PATCH] string_0xfe_0xff_1.f90: Use char instead of achar for 0xff to avoid the "Extended ASCII not... 2007-01-15 Thomas Koenig * gfortran.dg/string_0xfe_0xff_1.f90: Use char instead of achar for 0xff to avoid the "Extended ASCII not implemented" error message. From-SVN: r120800 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/string_0xfe_0xff_1.f90 | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b8cf1a9c09d..ebed226ace6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-01-15 Thomas Koenig + + * gfortran.dg/string_0xfe_0xff_1.f90: Use char instead + of achar for 0xff to avoid the "Extended ASCII not + implemented" error message. + 2007-01-15 Paul Thomas PR fortran/28172 diff --git a/gcc/testsuite/gfortran.dg/string_0xfe_0xff_1.f90 b/gcc/testsuite/gfortran.dg/string_0xfe_0xff_1.f90 index e3ea0429646..16867f05c68 100644 --- a/gcc/testsuite/gfortran.dg/string_0xfe_0xff_1.f90 +++ b/gcc/testsuite/gfortran.dg/string_0xfe_0xff_1.f90 @@ -3,5 +3,5 @@ ! as characters, of bytes 0xfe and 0xff. program main if (char (254) /= "þ") call abort - if (achar (255) /= "ÿ") call abort + if (char (255) /= "ÿ") call abort end program main -- 2.30.2