summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr46945.f90
blob: da4d7c7e5e37bb2a191a5030b3d5018cd6c4dd0d (plain)
1
2
3
4
5
6
7
8
9
10
! PR fortran/46945
! { dg-do run }
! { dg-options "-O -ftree-vrp -fno-tree-ccp -fno-tree-fre" }

program pr46945
  real, allocatable :: a(:,:,:)
  integer :: n
  n = 0
  allocate (a(n,n,n))
end program pr46945