Sign in
llvm
/
llvm-archive
/
48649d2c83b557841c9e5c978d9ab5af13cb52e5
/
.
/
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