diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-19 15:19:05 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-19 15:19:05 +0000 |
| commit | e7cb3dcf739c3524aa3b013c8310271fd09916a2 (patch) | |
| tree | 00bb7154979ab6ab02a125fb436eb1f8af253587 /gcc | |
| parent | 3e14097cbce6dd98c41b5f860991fc158f78118c (diff) | |
| download | gcc-e7cb3dcf739c3524aa3b013c8310271fd09916a2.zip gcc-e7cb3dcf739c3524aa3b013c8310271fd09916a2.tar.gz gcc-e7cb3dcf739c3524aa3b013c8310271fd09916a2.tar.bz2 | |
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
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 |