Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gfortran.dg
/
char_decl_2.f90
blob: ffce6b158e26e7532de365d8b84a03002e5c750a [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
character
(
kind
=
kind
(
"a"
))
::
u
if
(
kind
(
u
)
/=
kind
(
"a"
))
call abort
end