* gfortran.dg/widechar_intrinsics_5.f90: Add dg-do directive and

	use -fbackslash option.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135575 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e6f83dd..e334077 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 2008-05-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
+       * gfortran.dg/widechar_intrinsics_5.f90: Add dg-do directive and
+       use -fbackslash option.
+
+2008-05-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
        * gfortran.dg/char_cast_2.f90: Adjust count in scanning the tree
        dump file.
 

diff --git a/gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90 b/gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90
index 8475a67..5c989cc 100644 (file)
--- a/gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90
+++ b/gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90
@@ -1,9 +1,12 @@
+! { dg-do run }
+! { dg-options "-fbackslash" }
+
   implicit none
   integer :: i, j
   character(kind=4,len=5), dimension(3,3), parameter :: &
     p = reshape([4_" \xFF   ", 4_"\0    ", 4_" foo ", &
-                 4_"\u1230\uD67Bde\U31DC8B30", 4_"", 4_"fa fe", &
-                 4_"", 4_"foo  ", 4_"nul\0l"], [3,3])
+                 4_"\u1230\uD67Bde\U31DC8B30", 4_"     ", 4_"fa fe", &
+                 4_"     ", 4_"foo  ", 4_"nul\0l"], [3,3])
        
   character(kind=4,len=5), dimension(3,3) :: m1
   character(kind=4,len=5), allocatable, dimension(:,:) :: m2