From 33107839533124f7622d3630a2f7a10f266a1370 Mon Sep 17 00:00:00 2001
From: tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 15 Jan 2007 17:39:28 +0000
Subject: [PATCH] 2007-01-15 Thomas Koenig <Thomas.Koenig@online.de>
* 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 b8cf1a9c09d9..ebed226ace6d 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-01-15 Thomas Koenig <Thomas.Koenig@online.de>
+
+ * 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 <pault@gcc.gnu.org>
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 e3ea0429646e..16867f05c685 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
--
GitLab