<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 - Private variables are not only available in the module in which they are defined."
href="https://bugs.documentfoundation.org/show_bug.cgi?id=139373">139373</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>Private variables are not only available in the module in which they are defined.
</td>
</tr>
<tr>
<th>Product</th>
<td>LibreOffice
</td>
</tr>
<tr>
<th>Version</th>
<td>7.0.4.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:
Private variables are not only available in the Module in which they are
defined. but even in all Modules of all Libraries except Standard Library.
Steps to Reproduce:
1. Create Module1 in Standard Library
'Option Explicit
Public varPublicS As
Integer
'Library: Standard
Global varGlobalS As
Integer
'Module: Module1
Private varPrivateS As
Integer
Dim varDimPrivateS As
Integer
Sub Main
End Sub
2. Create Library1 & Module3 in Library1
'Option Explicit
Public varPublicL1 As
Integer
'Library: Library1
Global varGlobalL1 As
Integer
'Module: Module3
Private varPrivateL1 As
Integer
Dim varDimPrivateL1 As
Integer
Sub Main
End Sub
3. Create Library2 & Module5 in Libray2
'Library: Library2
'Module: Module5
Sub Show_var_LL2M5_2
MsgBox _
“varDimPrivateS = “ &
varDimPrivateS & Chr(10) & _
“varPrivateS = “ &
varPrivateS & Chr(10) & _
“varGlobalS = “ &
varGlobalS & Chr(10) & _
“varPublicS = “ &
varPublicS & Chr(10) & _
“varDimPrivateL1 = “ &
varDimPrivateL1 & Chr(10) & _
“varPrivateL1 = “ &
varPrivateL1 & Chr(10) & _
“varGlobalL1 = “ &
varGlobalL1 & Chr(10) & _
“varPublicL1 = “ &
varPublicL1 _
,,"Sub
Show_var_LL2M5_2"
End Sub
Actual Results:
Sub Show_var_LL2M5_2
varDimPrivateL1 = 0
varPrivateS = 0
varGlobalS = 0
varPublicS = 0
varDimPrivateL1 = 0
varPrivateL1 = 0
varGlobalL1 = 0
varPublicL1 = 0
Expected Results:
varDimPrivateL1 =
varPrivateS =
varDimPrivateL1 =
varPrivateL1 =
Reproducible: Always
User Profile Reset: No
Additional Info:
Version: 7.0.4.2
Build ID: 00(Build:2)
CPU threads: 4; OS: Linux 5.9; UI render: default; VCL: gtk3
Locale: en-US (en_US.UTF-8); UI: 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>