Sign in
llvm
/
llvm-archive
/
f8b4f79771a41ee0a0f02ac90619d37ccd834915
/
.
/
clang-tests-external
/
gdb
/
7.5
/
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