[Gambas-user] If x <> +Inf Then [Error]

[Martín]

Hi,

There maybe are an error in the evaluation of expression:

If x <> +Inf Then ...

To reproduce the error you can use this code (it occurs in 3.18.2 & 
3.18.90 but not in 3.18.0)

Public Sub Form_Open()

   Dim i As Integer
   'Dim inFinito As Integer = (2 ^ 31) - 1
   Dim inFinito As Integer = +Inf
   Dim a As New Integer[]

   For i = 0 To 9
     a.Add(Rand(0, inFinito))
   Next

   For i = 0 To 9
     'If a[i] <> +Inf Then ' it doesn't works
     If a[i] <> inFinito Then ' it works

       Print "Continua jugando"
     Else
       Print "Fin del juego"
     Endif
   Next

End


Best regards

Martin.