diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 e6f83dd..e334077 100644 --- 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 --- 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 |