UBound/LBound functions return a 'Long', help says 'Integer'

Verified on Windows, GNU/Linux and MAC OS:
Typename(Ubound(array)) and Typename(Lbound(array)) equal "Long"
Inherited from aOO

Change-Id: I389c2d70c10e374ffe674dd8ef40d787d55389cd
Reviewed-on: https://gerrit.libreoffice.org/81416
Tested-by: Jenkins
Reviewed-by: Olivier Hallot <olivier.hallot@libreoffice.org>

2 files changed, 25 insertions, 27 deletions

diff --git a/source/text/sbasic/shared/03102900.xhp b/source/text/sbasic/shared/03102900.xhp
index f7c4f41d5e..e237b38007 100644
--- a/source/text/sbasic/shared/03102900.xhp
+++ b/source/text/sbasic/shared/03102900.xhp
@@ -44,7 +44,7 @@
 </bascode>
 
 <paragraph id="hd_id3150984" role="heading" level="2" xml-lang="en-US">Return value:</paragraph>
-<paragraph id="par_id3153126" role="paragraph" xml-lang="en-US">Integer</paragraph>
+<paragraph id="par_id3153126" role="paragraph" xml-lang="en-US">Long</paragraph>
 
 <paragraph id="hd_id3144500" role="heading" level="2" xml-lang="en-US">Parameters:</paragraph>
 <paragraph id="par_id3145069" role="paragraph" xml-lang="en-US"> <emph>ArrayName:</emph> Name of the array for which you want to return the upper (<emph>Ubound</emph>) or the lower (<emph>LBound</emph>) boundary of the array dimension.</paragraph>
@@ -55,19 +55,18 @@
 
 <paragraph id="hd_id3145171" role="heading" level="2" xml-lang="en-US">Example:</paragraph>
 <bascode>
-<paragraph id="par_idm1206770608" role="bascode" localize="false" xml-lang="en-US">Sub ExampleUboundLbound</paragraph>
-<paragraph id="par_idm1206769504" role="bascode" localize="false" xml-lang="en-US">Dim sVar(10 To 20) As String</paragraph>
-<paragraph id="par_idm1206768352" role="bascode" localize="false" xml-lang="en-US">    Print LBound(sVar())</paragraph>
-<paragraph id="par_idm1206767200" role="bascode" localize="false" xml-lang="en-US">    Print UBound(sVar())</paragraph>
-<paragraph id="par_idm1206766048" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+<paragraph id="par_idm1206770608" role="bascode" xml-lang="en-US">Sub VectorBounds</paragraph>
+<paragraph id="par_idm1206769504" role="bascode" localize="false" xml-lang="en-US">    Dim v(10 To 20) As String</paragraph>
+<paragraph id="par_idm1206768352" role="bascode" xml-lang="en-US">    Print LBound(v()) &apos; returns 10</paragraph>
+<paragraph id="par_idm1206767200" role="bascode" localize="false" xml-lang="en-US">    Print UBound(v) &apos; returns 20</paragraph>
+<paragraph id="par_idm1206766048" role="bascode" xml-lang="en-US">End Sub &apos; VectorBounds</paragraph>
 <paragraph id="par_idm1206764944" role="bascode" localize="false" xml-lang="en-US"> </paragraph>
-<paragraph id="par_idm1206763792" role="bascode" localize="false" xml-lang="en-US">Sub ExampleUboundLbound2</paragraph>
-<paragraph id="par_idm1206762640" role="bascode" localize="false" xml-lang="en-US">Dim sVar(10 To 20,5 To 70) As String</paragraph>
-<paragraph id="par_id3145365" role="bascode" xml-lang="en-US">    Print LBound(sVar()) ' Returns 10</paragraph>
-<paragraph id="par_id3150486" role="bascode" xml-lang="en-US">    Print UBound(sVar()) ' Returns 20</paragraph>
-<paragraph id="par_id3149665" role="bascode" xml-lang="en-US">    Print LBound(sVar(),2) ' Returns 5</paragraph>
-<paragraph id="par_id3159154" role="bascode" xml-lang="en-US">    Print UBound(sVar(),2) ' Returns 70</paragraph>
-<paragraph id="par_idm1206754912" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+<paragraph id="par_idm1206763792" role="bascode" xml-lang="en-US">Sub TableBounds</paragraph>
+<paragraph id="par_idm1206762640" role="bascode" localize="false" xml-lang="en-US">    Dim t(10 To 20,-5 To 70) As Currency</paragraph>
+<paragraph id="par_id3145365" role="bascode" xml-lang="en-US">    Print LBound(t), UBound(t()) &apos; returns 10  20</paragraph>
+<paragraph id="par_id3149665" role="bascode" xml-lang="en-US">    Print LBound(t(),2) ' returns - 5</paragraph>
+<paragraph id="par_id3159154" role="bascode" xml-lang="en-US">    Print UBound(t,2) ' returns 70</paragraph>
+<paragraph id="par_idm1206754912" role="bascode" xml-lang="en-US">End Sub &apos; TableBounds</paragraph>
 </bascode>
 </body>
 
diff --git a/source/text/sbasic/shared/03103000.xhp b/source/text/sbasic/shared/03103000.xhp
index abd8ff54d1..a997d5558e 100644
--- a/source/text/sbasic/shared/03103000.xhp
+++ b/source/text/sbasic/shared/03103000.xhp
@@ -44,7 +44,7 @@
 </bascode>
 
 <paragraph id="hd_id3153897" role="heading" level="2" xml-lang="en-US">Return value:</paragraph>
-<paragraph id="par_id3149670" role="paragraph" xml-lang="en-US">Integer</paragraph>
+<paragraph id="par_id3149670" role="paragraph" xml-lang="en-US">Long</paragraph>
 
 <paragraph id="hd_id3154347" role="heading" level="2" xml-lang="en-US">Parameters:</paragraph>
 <paragraph id="par_id3153381" role="paragraph" xml-lang="en-US"> <emph>ArrayName:</emph> Name of the array for which you want to determine the upper (<emph>Ubound</emph>) or the lower (<emph>LBound</emph>) boundary.</paragraph>
@@ -55,19 +55,18 @@
 
 <paragraph id="hd_id3153192" role="heading" level="2" xml-lang="en-US">Example:</paragraph>
 <bascode>
-<paragraph id="par_idm1341372528" role="bascode" localize="false" xml-lang="en-US">Sub ExampleUboundLbound</paragraph>
-<paragraph id="par_idm1341371296" role="bascode" localize="false" xml-lang="en-US">Dim sVar(10 To 20) As String</paragraph>
-<paragraph id="par_idm1341370048" role="bascode" localize="false" xml-lang="en-US">    Print LBound(sVar())</paragraph>
-<paragraph id="par_idm1341368800" role="bascode" localize="false" xml-lang="en-US">    Print UBound(sVar())</paragraph>
-<paragraph id="par_idm1341367552" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
-<paragraph id="par_idm1341366320" role="bascode" localize="false" xml-lang="en-US"> </paragraph>
-<paragraph id="par_idm1341365072" role="bascode" localize="false" xml-lang="en-US">Sub ExampleUboundLbound2</paragraph>
-<paragraph id="par_idm1341363824" role="bascode" localize="false" xml-lang="en-US">Dim sVar(10 To 20,5 To 70) As String</paragraph>
-<paragraph id="par_id3152596" role="bascode" xml-lang="en-US">    Print LBound(sVar()) ' Returns 10</paragraph>
-<paragraph id="par_id3153138" role="bascode" xml-lang="en-US">    Print UBound(sVar()) ' Returns 20</paragraph>
-<paragraph id="par_id3149665" role="bascode" xml-lang="en-US">    Print LBound(sVar(),2) ' Returns 5</paragraph>
-<paragraph id="par_id3147214" role="bascode" xml-lang="en-US">    Print UBound(sVar(),2) ' Returns 70</paragraph>
-<paragraph id="par_idm1341355616" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+<paragraph id="par_idm1206770608" role="bascode" xml-lang="en-US">Sub VectorBounds</paragraph>
+<paragraph id="par_idm1206769504" role="bascode" localize="false" xml-lang="en-US">    Dim v(10 To 20) As String</paragraph>
+<paragraph id="par_idm1206768352" role="bascode" xml-lang="en-US">    Print LBound(v()) &apos; returns 10</paragraph>
+<paragraph id="par_idm1206767200" role="bascode" localize="false" xml-lang="en-US">    Print UBound(v) &apos; returns 20</paragraph>
+<paragraph id="par_idm1206766048" role="bascode" xml-lang="en-US">End Sub &apos; VectorBounds</paragraph>
+<paragraph id="par_idm1206764944" role="bascode" localize="false" xml-lang="en-US"> </paragraph>
+<paragraph id="par_idm1206763792" role="bascode" xml-lang="en-US">Sub TableBounds</paragraph>
+<paragraph id="par_idm1206762640" role="bascode" localize="false" xml-lang="en-US">    Dim t(10 To 20,-5 To 70) As Currency</paragraph>
+<paragraph id="par_id3145365" role="bascode" xml-lang="en-US">    Print LBound(t), UBound(t()) &apos; returns 10  20</paragraph>
+<paragraph id="par_id3149665" role="bascode" xml-lang="en-US">    Print LBound(t(),2) ' returns - 5</paragraph>
+<paragraph id="par_id3159154" role="bascode" xml-lang="en-US">    Print UBound(t,2) ' returns 70</paragraph>
+<paragraph id="par_idm1206754912" role="bascode" xml-lang="en-US">End Sub &apos; TableBounds</paragraph>
 </bascode>
 </body>