program hello
    implicit none
    intrinsic flush
    integer :: i = 2, j = 2, mySillyVariable = 5
    print *, i, j, MYsIlLyVaRiAbLe
    CALL wORTHLESSfUNCTION(i+1,j+1,MySillyVariable)
    print *, i, j, mYsILLYvARIABLE
    call flush; stop

    contains
    subroutine WorthlessFunction(i,j,mySillyVariable)
        implicit none
        integer :: i
        integer :: j
        integer :: mySillyVariable
        intent(IN)  :: i, j
        intent(OUT) :: mySillyVariable

        mySillyVariable = i + j
    end subroutine WorthlessFunction
end program