Replace Old Style Do Loops

Replace Old Style Do Loops

Description: replace old styles Do Loop Continue with the equivalent Do Loop with End Do statement and it replaces all shared Do Loop ter-
mination construct with the equivalent Do Loop with End Do statement

State: Implemeted Author: Mariano Mendez Version: Submission Process

Code Example:

   program main

    ! Shared Do Loop Termination
    do 100 j=1,10
    do 100 w=1,10
100 i=j+1

! siple Do Loop
do 110 i = 1,10
110 j=i

! siple Do Loop2
    do 120 i = 1,10
      USAV(I,K)=UCLIN(I,K)
      VSAV(I,K)=VCLIN(I,K)
      UCLIN(I,K)=UP(I,K)
      VCLIN(I,K)=VP(I,K)
120 continue

end program main

    program main

    ! Shared Do Loop Termination
    do j=1,10
        do w=1,10
            100 i=j+1
        END DO
    END DO

! siple Do Loop
do i = 1,10
    110 j=i
END DO

! siple Do Loop2
do i = 1,10
    USAV(I,K)=UCLIN(I,K)
    VSAV(I,K)=VCLIN(I,K)
    UCLIN(I,K)=UP(I,K)
    VCLIN(I,K)=VP(I,K)
    120 continue
END DO

ScreenShots

HTML Comment Box is loading comments...