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

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

end program