From e7cb3dcf739c3524aa3b013c8310271fd09916a2 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Mon, 19 May 2008 15:19:05 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90 | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 -- 2.30.2