From 28cc1e9a8a81cfca5c7dd193bd45a95acbcb2b6b Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 6 Sep 2010 00:14:14 +0200 Subject: bessel.m4: Fix printf warning by casting to (long int). 2010-09-05 Tobias Burnus * m4/bessel.m4: Fix printf warning by casting to (long int). * generated/bessel_r4.c:Regenerated. * generated/bessel_r8.c: Regenerated. * generated/bessel_r10.c: Regenerated. * generated/bessel_r16.c: Regenerated. From-SVN: r163885 --- libgfortran/generated/bessel_r4.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libgfortran/generated/bessel_r4.c') diff --git a/libgfortran/generated/bessel_r4.c b/libgfortran/generated/bessel_r4.c index 794a5f6b7f9..3d6e3ca231a 100644 --- a/libgfortran/generated/bessel_r4.c +++ b/libgfortran/generated/bessel_r4.c @@ -66,7 +66,7 @@ bessel_jn_r4 (gfc_array_r4 * const restrict ret, int n1, int n2, GFC_REAL_4 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_r4 (gfc_array_r4 * 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); -- cgit v1.2.1