1! PR fortran/46945
2! { dg-do run }
3! { dg-options "-O -ftree-vrp -fno-tree-ccp -fno-tree-fre" }
4
5program pr46945
6  real, allocatable :: a(:,:,:)
7  integer :: n
8  n = 0
9  allocate (a(n,n,n))
10end program pr46945
11