<html>
    <head>
      <base href="https://bugs.documentfoundation.org/">
    </head>
    <body><table border="1" cellspacing="0" cellpadding="8">
        <tr>
          <th>Bug ID</th>
          <td><a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - The program does not continue with 'Dim' or 'ReDim' following 'If' in one line statement."
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=133811">133811</a>
          </td>
        </tr>

        <tr>
          <th>Summary</th>
          <td>The program does not continue with 'Dim' or 'ReDim' following 'If' in one line statement.
          </td>
        </tr>

        <tr>
          <th>Product</th>
          <td>LibreOffice
          </td>
        </tr>

        <tr>
          <th>Version</th>
          <td>6.2.8.2 release
          </td>
        </tr>

        <tr>
          <th>Hardware</th>
          <td>x86-64 (AMD64)
          </td>
        </tr>

        <tr>
          <th>OS</th>
          <td>Linux (All)
          </td>
        </tr>

        <tr>
          <th>Status</th>
          <td>UNCONFIRMED
          </td>
        </tr>

        <tr>
          <th>Severity</th>
          <td>normal
          </td>
        </tr>

        <tr>
          <th>Priority</th>
          <td>medium
          </td>
        </tr>

        <tr>
          <th>Component</th>
          <td>BASIC
          </td>
        </tr>

        <tr>
          <th>Assignee</th>
          <td>libreoffice-bugs@lists.freedesktop.org
          </td>
        </tr>

        <tr>
          <th>Reporter</th>
          <td>nukool@gmail.com
          </td>
        </tr></table>
      <p>
        <div>
        <pre>Description:
Using 'If' in one line statement, 'Dim' and 'ReDim' subsequent statements next
to 'If' condition are not executed.

Steps to Reproduce:
1. Example code:

Option Explicit

Sub Test_IfIsNotClosed
    If False Then Dim i%
    i = 1
    MsgBox i
End Sub

Sub Test_IfIsClosed
    If False Then
        Dim j%
        j = 1
    Else
        Dim k%
        k = 2
    End If
    MsgBox k
End Sub 

2. Dim i% is not executed. 


Actual Results:
Dim i% is not executed. 

Expected Results:
Dim or ReDim should be executed.


Reproducible: Always


User Profile Reset: No



Additional Info:
Version: 6.2.8.2
Build ID: f82ddfca21ebc1e222a662a32b25c0c9d20169ee
CPU threads: 4; OS: Linux 5.6; UI render: default; VCL: gtk3; 
Locale: en-US (en_US.UTF-8); UI-Language: en-US
Calc: threaded</pre>
        </div>
      </p>


      <hr>
      <span>You are receiving this mail because:</span>

      <ul>
          <li>You are the assignee for the bug.</li>
      </ul>
    </body>
</html>