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