From: Francois-Xavier Coudert Date: Mon, 19 May 2008 15:19:05 +0000 (+0000) Subject: widechar_intrinsics_5.f90: Add dg-do directive and use -fbackslash option. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e7cb3dcf739c3524aa3b013c8310271fd09916a2;p=gcc.git 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 e6f83dd0a0b..e334077a0a5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-05-19 Francois-Xavier Coudert + + * gfortran.dg/widechar_intrinsics_5.f90: Add dg-do directive and + use -fbackslash option. + 2008-05-19 Francois-Xavier Coudert * 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 8475a67906b..5c989cc25b3 100644 --- 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