From 33107839533124f7622d3630a2f7a10f266a1370 Mon Sep 17 00:00:00 2001 From: tkoenig Date: Mon, 15 Jan 2007 17:39:28 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120800 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 -- cgit v1.2.1