[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.fortran / charset.f90

character(kind=1) :: x
character(kind=4) :: c
character(kind=4,len=5) :: str
x = 'j'
c = 4_'k'
str = 4_'lmnop'
! break-here
print *, c
print *, str
end
Commit	Line	Data
3b2b8fea TT	1	character(kind=1) :: x
	2	character(kind=4) :: c
	3	character(kind=4,len=5) :: str
	4	x = 'j'
	5	c = 4_'k'
	6	str = 4_'lmnop'
	7	! break-here
	8	print *, c
	9	print *, str
	10	end