subroutine toto
      do i=1,10
         print*,i
      enddo
      if (i.EQ.1) THEN
         print*,'error'
      endif
      end