2015-09-24 Vladimir Makarov <vmakarov@redhat.com>
[official-gcc.git] / gcc / testsuite / gfortran.dg / g77 / 12632.f
blob398333926edb012f046bf9a4683289520365f5c5
1 C { dg-do compile }
2 C { dg-options "-fbounds-check" }
3 INTEGER I(1)
4 I(2) = 0 ! { dg-warning "out of bounds" "out of bounds" }
5 END