summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/12632.f
blob: 398333926edb012f046bf9a4683289520365f5c5 (plain)
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