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