Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr98408.f90
blob: 4ec1a08fe02c2d240b48a9dfbd3c30a179415960 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
!
Contributed
by
Thomas
Koenig
<
tkoenig@gcc
.
gnu
.
org
>
!
program main
character
(
len
=:),
allocatable
::
a
(:)
allocate
(
character
(
len
=
10
)
::
a
(
5
))
if
(
sizeof
(
a
)
.
ne
.
50
)
stop
1
deallocate
(
a
)
end
program main