1! { dg-do compile }
2! { dg-options "-fdump-tree-original" }
3!
4! PR fortran/54208
5! The I and J definitions used to raise an error because ARR's array spec
6! was resolved to late for the LBOUND and UBOUND calls to be simplified to
7! a constant.
8!
9! Contributed by Carlos A. Cruz <carlos.a.cruz@nasa.gov>
10
11program testit
12  integer, parameter :: n=2
13  integer, dimension(1-min(n,2)/2:n) :: arr
14  integer, parameter :: i=lbound(arr,1)
15  integer, parameter :: j=ubound(arr,1)
16  ! write(6,*) i, j
17  if (i /= 0) call abort
18  if (j /= 2) call abort
19end program testit
20
21! { dg-final { scan-tree-dump-times "bound" 0 "original" } }
22! { dg-final { scan-tree-dump-times "abort" 0 "original" } }
23! { dg-final { cleanup-tree-dump "original" } }
24