2010-09-05 Tobias Burnus <burnus@net-b.de>

[pf3gnuchains/gcc-fork.git] / libgfortran / generated / bessel_r10.c

diff --git a/libgfortran/generated/bessel_r10.c b/libgfortran/generated/bessel_r10.c
index efef450..93d08d6 100644 (file)
--- a/libgfortran/generated/bessel_r10.c
+++ b/libgfortran/generated/bessel_r10.c
@@ -66,7 +66,7 @@ bessel_jn_r10 (gfc_array_r10 * const restrict ret, int n1, int n2, GFC_REAL_10 x
       && GFC_DESCRIPTOR_EXTENT(ret,0) != (n2-n1+1))
     runtime_error("Incorrect extent in return value of BESSEL_JN "
                  "(%ld vs. %ld)", (long int) n2-n1,
-                 GFC_DESCRIPTOR_EXTENT(ret,0));
+                 (long int) GFC_DESCRIPTOR_EXTENT(ret,0));
 
   stride = GFC_DESCRIPTOR_STRIDE(ret,0);
 
@@ -134,7 +134,7 @@ bessel_yn_r10 (gfc_array_r10 * const restrict ret, int n1, int n2,
       && GFC_DESCRIPTOR_EXTENT(ret,0) != (n2-n1+1))
     runtime_error("Incorrect extent in return value of BESSEL_JN "
                  "(%ld vs. %ld)", (long int) n2-n1,
-                 GFC_DESCRIPTOR_EXTENT(ret,0));
+                 (long int) GFC_DESCRIPTOR_EXTENT(ret,0));
 
   stride = GFC_DESCRIPTOR_STRIDE(ret,0);