target  : (4,0x66) ForR8
status  : emitted
from    : discovery snippet 'forglob_R8' (minimised)

' ---- modProbe.bas
Option Explicit
Dim gi As Double

Public Sub Main()
  Dim n As Long
  For gi = 1 To 5
  Next
End Sub

target disasm lines:
  modProbe.Sub Main | 401457    FE66 68FF1B00         ForR8 var_98 loc_401467
