string_0xfe_0xff_1.f90: Use char instead of achar for 0xff to avoid the "Extended...

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.

From-SVN: r120800

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b8cf1a9c09d913c9d71a2ecc8e1debbba26ba1ba..ebed226ace6dcd22f82d1c0db4703a452a682ca8 100644 (file)
--- 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 e3ea0429646e41cdf91a14bfcf2db91638e4ff3b..16867f05c68587798705b2454aabb627de4d2ea0 100644 (file)
--- 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