diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-19 15:19:05 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-19 15:19:05 +0000 |
| commit | 724ad675e737e48a5b350e06c53fe2430f024134 (patch) | |
| tree | 00bb7154979ab6ab02a125fb436eb1f8af253587 /gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90 | |
| parent | 6c78b1421f8eeb9caa284546348a9f635754db5d (diff) | |
| download | gcc-724ad675e737e48a5b350e06c53fe2430f024134.tar.gz | |
* gfortran.dg/widechar_intrinsics_5.f90: Add dg-do directive and
use -fbackslash option.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135575 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/widechar_intrinsics_5.f90 | 7 |
1 files changed, 5 insertions, 2 deletions
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 |