Change std::set to use native fortran ints for size

Author: sethrj

Examples/test-suite/fortran/li_std_set_runme.F90

@@ -16,7 +16,7 @@ subroutine test_multiset_int
   use li_std_set, only : multiset_int => set_int
   implicit none
   type(multiset_int) :: s
-  integer(c_size_t) :: num_erased
+  integer :: num_erased
 
   s = multiset_int()
   ASSERT(s%empty())

Lib/fortran/std_multiset.i

@@ -5,6 +5,8 @@
  * keys.
  * ------------------------------------------------------------------------- */
 
+%include "std_common.i"
+
 %{
 #include <set>
 %}
@@ -29,6 +31,9 @@ public:
 public:
   set();
 
+  // - Use native Fortran integers in proxy code
+  %apply int FORTRAN_INT {size_type};
+
   bool empty() const;
   size_type size() const;
   void clear();

Lib/fortran/std_set.i

@@ -2,6 +2,8 @@
  * std_set.i
  * ------------------------------------------------------------------------- */
 
+%include "std_common.i"
+
 %{
 #include <set>
 %}
@@ -26,6 +28,9 @@ public:
 public:
   set();
 
+  // - Use native Fortran integers in proxy code
+  %apply int FORTRAN_INT {size_type};
+
   bool empty() const;
   size_type size() const;
   void clear();