org.eclipse.photran.core.vpg.tests/refactoring-test-code/encapsulate-variable/test-simple01.f90.result

program main
    use module1
    implicit none
    integer :: blah
    
    blah =getI() + j + k !6,12,1
    
    call setI(blah + j)
    
    call mult(getI(),j,blah)
    
contains
    subroutine mult(a,b,c)
        integer, intent(in) :: a, b, c
        integer :: temp
        temp = a*b*c
    end subroutine

end program