This question about Flex gives an example of a nonblock do-loop in fortran:
DO 20 I=1, N ! line 1 DO 20 J=1, N ! line 2 ! more codes 20 CONTINUE