Has anyone played with Sale's Fortran classification algorithm lately?

I tried to do exactly that, and to convert other IF …GOTO blocks to DO loops, but found that the resulting code contained disallowed jumps into SELECT blocks and DO loops from outside the blocks.