Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
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