blob: 6f88c2bf27caed18a4fd180c5af3fe87fd8d6bf8 (
plain)
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
|