[photran] Replace Old Style DO LOOPS

["Mariano Mendez" <mmendez@xxxxxxxxxxxxxxx>]

Hi:

 

   I’m posting an image of a new Fortran refactoring. It removes the old style Do loop formats adding the END DO, it works on shared DO LOOP termination too.

 

   As a consequence, the Remove Un-referenced label Refactoring was programmed too. This refactoring removes all Un-referenced labels in the source code, it may be used after ReplaceOldStyleDoLoops Refactoring. It Could be improved by removing the CONTINUE statement

 

Mariano

Attachment: ReplaceOldStyleDoLoopsRefactoring.JPG
Description: JPEG image

Attachment: RemoveUnreferencedLabelsRefactoring.JPG
Description: JPEG image