[Libreoffice-bugs] [Bug 139373] New: Private variables are not only available in the module in which they are defined.

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=139373

            Bug ID: 139373
           Summary: Private variables are not only available in the module
                    in which they are defined.
           Product: LibreOffice
           Version: 7.0.4.2 release
          Hardware: x86-64 (AMD64)
                OS: Linux (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: BASIC
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: nukool at gmail.com

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

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20210102/1f9e36e4/attachment.htm>