org.eclipse.photran.core.vpg.tests/extract-proc-test-code/test03-locals2.f90.result

call sub1()
contains

    subroutine sub1
        integer :: a, b
        dimension a(3, 4:5)
        print *, a
        call new_procedure(b)
        print *, implicit1
        print *, implicit2
        if (implicit2 .gt. 3) then
          print *, "OK"
        end if
    end subroutine

    subroutine new_procedure(b)
        implicit none
        integer :: b
        print *, b                  !<<<<<START !<<<<<END
    end subroutine


    subroutine x
    end subroutine x
end program