target  : (0,0xA6) Ary1StFPR8
status  : emitted
from    : discovery snippet 'st_arrfix_Date' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim a(5) As Date, b As Date, i As Long
  a(i) = #1/1/2000#
End Sub

target disasm lines:
  modProbe.Sub Main | 40145B    A6                    Ary1StFPR8
