Commit e7cb3dcf by Francois-Xavier Coudert Committed by François-Xavier Coudert

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
parent 3e14097c
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.
......
! { 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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment