1! { dg-do compile }
2! PR 62142 - this used to segfault
3! Original test case by Ondřej Čertík .
4program test_segfault
5  implicit none
6  real, allocatable :: X(:)
7  allocate (x(1))
8  x = 1.
9  X = floor(X)
10end program
11