widechar_intrinsics_5.f90: Add dg-do directive and use -fbackslash option.

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

From-SVN: r135575

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e6f83dd0a0bb9bdc0de006ed0402316ea7378eb1..e334077a0a5ee549f7464a60f0ec1461b6582a3a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90 b/gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90
index 8475a67906b8d8cca66d0991182f52b89d9fa526..5c989cc25b3308ea30674f206d0555aa05ac234b 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