gcc-4.9/gcc/testsuite/gfortran.dg/realloc_on_assign_24.f90


1
2
3
4
5
6
7
8
9
10

! { 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