blob: 91121c8a406a515aa6b57ef4def518a1a1612923 [file] [log] [blame]
C { dg-do compile }
C { dg-options "-fbounds-check" }
INTEGER I(1)
I(2) = 0 ! { dg-error "out of bounds" "out of bounds" }
END