Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
char_decl_2.f90
blob: a4b6ca2e77914ed42e7931ffd53b5e6ef689b5f5 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
character
(
kind
=
kind
(
"a"
))
::
u
if
(
kind
(
u
)
/=
kind
(
"a"
))
STOP
1
end
