Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
    Dim f_array() As Float = Array As Float(10.10,20.20)
    Dim b_array() As Byte = Array As Byte(11,22)
    RunNative("Runtime_check",f_array(0))
    RunNative("Runtime_check",b_array(0))
    RunNative("Runtime_check",f_array)   'not working return 100
    RunNative("Runtime_check",b_array)   'not working return 100
End Sub
#if C
void Runtime_check(B4R::Object* o) {
   // see e.g. #define BR_DOUBLE 7 in rCore.h
   if (o->type==7) ::Serial.println("Double type");
   if (o->type==5) ::Serial.println("Byte type");
   ::Serial.println(o->type);
   ::Serial.println("------------");
}
#End if