gcc/testsuite/gfortran.dg/do_iterator.f90

   1 ! { dg-do compile }
   2 ! various checks which verify that we don't change do-iterators
   3 DO I=1,5
   4    I=1        ! { dg-error "cannot be redefined" "changing do-iterator 1" }
   5    READ(5,*) I ! { dg-error "cannot be redefined" "changing do-iterator 2" }
   6    READ(5,*,iostat=i) j ! { dg-error "cannot be redefined" "changing do-iterator 3" }
   7 ENDDO
   8 END
   9