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