Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
realloc_on_assign_24.f90
blob: 6f88c2bf27caed18a4fd180c5af3fe87fd8d6bf8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
62142
-
this
used to segfault
!
Original
test
case
by
Ond
ř
ej
Č
ert
í
k
.
program test_segfault
implicit
none
real
,
allocatable
::
X
(:)
allocate
(
x
(
1
))
x
=
1.
X
=
floor
(
X
)
end
program