Sign in
chromium
/
native_client
/
nacl-toolchain
/
cc3d67a9abb3eceb0d79d5369b40b41f67e2474b
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
char_allocation_1.f90
blob: 119badb4d105834d17e1e1e9c319fefcf250fe05 [
file
] [
log
] [
blame
]
!
PR fortran
/
31974
!
{
dg
-
do
run
}
subroutine foo
(
n
)
integer
::
n
character
(
len
=
n
)
::
v
(
n
)
v
=
''
if
(
any
(
v
/=
''
))
call abort
end
subroutine foo
call foo
(
7
)
end