1! { dg-do run }
2! { dg-options "-fbounds-check" }
3! { dg-shouldfail "Array reference out of bounds" }
4! PR fortran/31627
5subroutine foo(a)
6  integer a(*), i
7  i = 0
8  a(i) = 42
9end subroutine foo
10
11program test
12  integer x(42)
13  call foo(x)
14end program test
15! { dg-output "Index '0' of dimension 1 of array 'a' below lower bound of 1" }
16