gcc/testsuite/gfortran.dg/do_check_9.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/50554
   4 !
   5 ! Contributed by Vittorio Zecca
   6 !
   7 ! INQUIRE cannot redefine DO index
   8 !
   9       do I=1,10 ! { dg-error "cannot be redefined inside loop beginning at" }
  10        inquire(iolength=I) n ! { dg-error "cannot be redefined inside loop beginning at" }
  11        inquire(99,size=I) ! { dg-error "cannot be redefined inside loop beginning at" }
  12        read(99,'(i4)',size=I,advance="no") n ! { dg-error "cannot be redefined inside loop beginning at" }
  13       end do
  14       end