Source

aotus / source / quadruple / aot_quadruple_vector_module.f90

Diff from to

source/quadruple/aot_quadruple_vector_module.f90

     if (valid_args) then
       call aot_top_get_val(val, ErrCode, maxlength, L, default)
     else
+      ! In case of invalid arguments return 0-sized arrays.
+      ! (Equivalent of not found Lua tables.)
+      allocate(Val(0))
       allocate(ErrCode(0))
     end if