update fortran branch. merge of 12160:12460a11426-fortran

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/a11426-fortran@12461 626c5289-ae23-0410-ae9c-e8d60b6d4f22

1 files changed, 36 insertions, 0 deletions

diff --git a/Examples/test-suite/d/d_nativepointers_runme.1.d b/Examples/test-suite/d/d_nativepointers_runme.1.d
new file mode 100644
index 000000000..797c057d3
--- /dev/null
+++ b/Examples/test-suite/d/d_nativepointers_runme.1.d
@@ -0,0 +1,36 @@
+module d_nativepointers_runnme;
+
+import d_nativepointers.d_nativepointers;
+import d_nativepointers.SomeClass;
+import d_nativepointers.SWIGTYPE_p_OpaqueClass;
+import d_nativepointers.SWIGTYPE_p_p_SomeClass;
+import d_nativepointers.SWIGTYPE_p_p_f_p_p_int_p_SomeClass__void;
+
+void main() {
+  check!(a, int*);
+  check!(b, float**);
+  check!(c, char***);
+  check!(d, SomeClass);
+  check!(e, SWIGTYPE_p_p_SomeClass);
+  check!(f, SWIGTYPE_p_OpaqueClass);
+  check!(g, void function(int**, char***));
+  check!(h, SWIGTYPE_p_p_f_p_p_int_p_SomeClass__void);
+
+  {
+    static assert(is(int* function(int*) == typeof(&refA)));
+    int v = 2;
+    assert(*refA(&v) == 2);
+  }
+
+  {
+    static assert(is(float** function(float**) == typeof(&refB)));
+    float v = 1.0;
+    float* p = &v;
+    assert(**refB(&p) == 1.0);
+  }
+}
+
+void check(alias F, T)() {
+  static assert(is(T function(T) == typeof(&F)));
+  assert(F(null) is null);
+}