1 2 3 4 5 6
C { dg-do compile } C { dg-options "-fbounds-check" } INTEGER I(1) I(2) = 0 ! { dg-warning "out of bounds" "out of bounds" } END