Sign in
gnu
/
binutils-gdb
/
fe31b7dd8c7b31289afdfc15440880485a0e5e96
/
.
/
gdb
/
testsuite
/
gdb.fortran
/
charset.f90
blob: 15cf36005cbc9df1404bd5916be86735e17cb9e9 [
file
] [
log
] [
blame
]
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