Update size reducer snapshots

Author: t-kalinowski

tests/testthat/_snaps/c-bridge-hoist.md

@@ -22,16 +22,16 @@
       cat(fsub)
     Output
       subroutine fn(n, m, a, b, out) bind(c)
-        use iso_c_binding, only: c_double, c_int
+        use iso_c_binding, only: c_double, c_int, c_ptrdiff_t
         implicit none
       
         ! manifest start
         ! args
         integer(c_int), intent(in) :: n
         integer(c_int), intent(in) :: m
-        real(c_double), intent(in) :: a(min(n, m))
-        real(c_double), intent(in) :: b(min(n, m))
-        real(c_double), intent(out) :: out(min(n, m))
+        real(c_double), intent(in) :: a(int((min(real(n, kind=c_double), real(m, kind=c_double))), kind=c_ptrdiff_t))
+        real(c_double), intent(in) :: b(int((min(real(n, kind=c_double), real(m, kind=c_double))), kind=c_ptrdiff_t))
+        real(c_double), intent(out) :: out(int((min(real(n, kind=c_double), real(m, kind=c_double))), kind=c_ptrdiff_t))
       
         ! locals
         integer(c_int) :: i

tests/testthat/_snaps/dims2c-length.md

@@ -166,14 +166,14 @@
       cat(fsub)
     Output
       subroutine fn(n, m, out) bind(c)
-        use iso_c_binding, only: c_double, c_int
+        use iso_c_binding, only: c_double, c_int, c_ptrdiff_t
         implicit none
       
         ! manifest start
         ! args
         integer(c_int), intent(in) :: n
         integer(c_int), intent(in) :: m
-        real(c_double), intent(out) :: out(min(n, m))
+        real(c_double), intent(out) :: out(int((min(real(n, kind=c_double), real(m, kind=c_double))), kind=c_ptrdiff_t))
       
         ! locals
         integer(c_int) :: i
@@ -255,14 +255,14 @@
       cat(fsub)
     Output
       subroutine fn(n, m, out) bind(c)
-        use iso_c_binding, only: c_double, c_int
+        use iso_c_binding, only: c_double, c_int, c_ptrdiff_t
         implicit none
       
         ! manifest start
         ! args
         integer(c_int), intent(in) :: n
         integer(c_int), intent(in) :: m
-        real(c_double), intent(out) :: out(max(n, m))
+        real(c_double), intent(out) :: out(int((max(real(n, kind=c_double), real(m, kind=c_double))), kind=c_ptrdiff_t))
       
         ! locals
         integer(c_int) :: i

tests/testthat/_snaps/qr-solve.md

@@ -19,7 +19,7 @@
       cat(fsub)
     Output
       subroutine fn(a, b, out_, a__dim_1_, a__dim_2_, quickr_err_msg) bind(c)
-        use iso_c_binding, only: c_char, c_double, c_int, c_null_char
+        use iso_c_binding, only: c_char, c_double, c_int, c_null_char, c_ptrdiff_t
         implicit none
       
         ! manifest start
@@ -54,7 +54,7 @@
           allocate(btmp3_(a__dim_2_))
           allocate(btmp4_(a__dim_2_))
           allocate(btmp5_(a__dim_2_, 2))
-          allocate(btmp8_(min(a__dim_1_, a__dim_2_), 1))
+          allocate(btmp8_(int((min(real(a__dim_1_, kind=c_double), real(a__dim_2_, kind=c_double))), kind=c_ptrdiff_t), 1))
           btmp1_ = a
           btmp2_ = 0.0_c_double
           btmp2_(1:a__dim_1_, 1) = b
@@ -181,7 +181,7 @@
       cat(fsub)
     Output
       subroutine fn(a, b, out_, a__dim_1_, a__dim_2_, b__dim_2_, quickr_err_msg) bind(c)
-        use iso_c_binding, only: c_char, c_double, c_int, c_null_char
+        use iso_c_binding, only: c_char, c_double, c_int, c_null_char, c_ptrdiff_t
         implicit none
       
         ! manifest start
@@ -218,7 +218,7 @@
           allocate(btmp3_(a__dim_2_))
           allocate(btmp4_(a__dim_2_))
           allocate(btmp5_(a__dim_2_, 2))
-          allocate(btmp8_(min(a__dim_1_, a__dim_2_), b__dim_2_))
+          allocate(btmp8_(int((min(real(a__dim_1_, kind=c_double), real(a__dim_2_, kind=c_double))), kind=c_ptrdiff_t), b__dim_2_))
           btmp1_ = a
           btmp2_ = 0.0_c_double
           btmp2_(1:a__dim_1_, 1:b__dim_2_) = b