2014-08-15 Thomas Koenig <tkoenig@gcc.gnu.org>

[official-gcc.git] / gcc / testsuite / gfortran.dg / realloc_on_assign_24.f90

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