commit 1ecda3adc91328bc616b96367d90907350f2500f
author Caolán McNamara <caolanm@redhat.com> Fri Jul 10 11:37:50 2020 +0100
committer Xisco Fauli <xiscofauli@libreoffice.org> Tue Jul 14 21:53:55 2020 +0200
tree 4303bc87bb4862baf83a3d772695191fd0c331f1
parent ad6d723bb6e37e70702ea467072a1dc077293839

tdf#134576 at least don't crash in this edge-case

Change-Id: I69638fd2130c1ba68915906ced62bda2cd883932
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/98491
Tested-by: Jenkins
Reviewed-by: Caolán McNamara <caolanm@redhat.com>
(cherry picked from commit b55f56ca0417105f1e10131503d5560fb6c7e452)
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/98757
Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>

basic/source/runtime/runtime.cxx

diff --git a/basic/source/runtime/runtime.cxx b/basic/source/runtime/runtime.cxx
index 0b60322..71edbd1 100644
--- a/basic/source/runtime/runtime.cxx
+++ b/basic/source/runtime/runtime.cxx
@@ -2600,10 +2600,14 @@ void SbiRuntime::StepNEXT()
        StarBASIC::FatalError( ERRCODE_BASIC_INTERNAL_ERROR );
        return;
    }
    if( pForStk->eForType == ForType::To )
    if (pForStk->eForType != ForType::To)
        return;
    if (!pForStk->refVar)
    {
        pForStk->refVar->Compute( SbxPLUS, *pForStk->refInc );
        StarBASIC::FatalError( ERRCODE_BASIC_INTERNAL_ERROR );
        return;
    }
    pForStk->refVar->Compute( SbxPLUS, *pForStk->refInc );
}

// beginning CASE: TOS in CASE-stack