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