<html>
    <head>
      <base href="https://bugs.documentfoundation.org/">
    </head>
    <body><span class="vcard"><a class="email" href="mailto:frederic.bron@m4x.org" title="Frederic Bron <frederic.bron@m4x.org>"> <span class="fn">Frederic Bron</span></a>
</span> changed
          <a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - Cannot import libreoffice 5.2 basic macro library into libreoffice 5.3"
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=112466">bug 112466</a>
          <br>
             <table border="1" cellspacing="0" cellpadding="8">
          <tr>
            <th>What</th>
            <th>Removed</th>
            <th>Added</th>
          </tr>

         <tr>
           <td style="text-align:right;">Status</td>
           <td>NEEDINFO
           </td>
           <td>UNCONFIRMED
           </td>
         </tr>

         <tr>
           <td style="text-align:right;">Ever confirmed</td>
           <td>1
           </td>
           <td>
                
           </td>
         </tr></table>
      <p>
        <div>
            <b><a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - Cannot import libreoffice 5.2 basic macro library into libreoffice 5.3"
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=112466#c3">Comment # 3</a>
              on <a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - Cannot import libreoffice 5.2 basic macro library into libreoffice 5.3"
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=112466">bug 112466</a>
              from <span class="vcard"><a class="email" href="mailto:frederic.bron@m4x.org" title="Frederic Bron <frederic.bron@m4x.org>"> <span class="fn">Frederic Bron</span></a>
</span></b>
        <pre>OK, I have found something to reproduce the bug. Apparently it is not related
to the encrypted macros:

Tools/Macros/Manage macros/Libreoffice Basic.../Manage.../Libraries/New...
Type Library1 as name
Then click on Edit

and replace
"Sub Main

End Sub"

By

Option Explicit
Option Base 0

Private Function foo(dates() as Double, amounts() as Double, dateN as Double,
day_q as Double) as Double
        foo=0#
        Dim k as Long
        For k=0 To UBound(dates())
                If amounts(k)<>0. Then
                        foo=foo+amounts(k)*day_q^(dateN-dates(k))
                End If
        Next
End Function

If you have time, you can click Save. Otherwise, it will be the same: this
makes libreoffice use 100% of CPU forever.</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>