Test Pointer return values in argless function

t/04-nativecall/01-argless.c

@@ -27,6 +27,12 @@ DLLEXPORT long long ArglessLongLong()
     return 2;
 }
 
+int my_int = 2;
+DLLEXPORT int* ArglessPointer()
+{
+    return &my_int;
+}
+
 DLLEXPORT int long_and_complicated_name()
 {
     return 3;

t/04-nativecall/01-argless.t

@@ -5,14 +5,15 @@ use CompileTestLib;
 use NativeCall;
 use Test;
 
-plan 10;
+plan 12;
 
 compile_test_lib('01-argless');
 
 sub Nothing() is native('./01-argless') { * }
 sub Argless() is native('./01-argless') returns int32 { * }
 sub ArglessChar() is native('./01-argless') returns int8 { * }
 sub ArglessLongLong() is native('./01-argless') returns int64 { * }
+sub ArglessPointer() is native('./01-argless') returns Pointer[int32] { * }
 sub short()   is native('./01-argless') returns int32 is symbol('long_and_complicated_name') { * }
 
 Nothing() for ^2;
@@ -22,6 +23,7 @@ pass 'survived the call';
 is Argless(), 2, 'called argless function' for ^2;
 is ArglessChar(), 2, 'called argless function' for ^2;
 is ArglessLongLong(), 2, 'called argless function' for ^2;
+is ArglessPointer().deref, 2, 'called argless function' for ^2;
 
 is short(), 3, 'called long_and_complicated_name';