From patchwork Sun Sep 5 22:15:27 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 63867 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id EBE2FB70E1 for ; Mon, 6 Sep 2010 08:15:45 +1000 (EST) Received: (qmail 1757 invoked by alias); 5 Sep 2010 22:15:37 -0000 Received: (qmail 1738 invoked by uid 22791); 5 Sep 2010 22:15:35 -0000 X-SWARE-Spam-Status: No, hits=-1.8 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE X-Spam-Check-By: sourceware.org Received: from mx02.qsc.de (HELO mx02.qsc.de) (213.148.130.14) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sun, 05 Sep 2010 22:15:30 +0000 Received: from [192.168.178.22] (port-92-204-40-202.dynamic.qsc.de [92.204.40.202]) by mx02.qsc.de (Postfix) with ESMTP id BEA741E94C; Mon, 6 Sep 2010 00:15:27 +0200 (CEST) Message-ID: <4C84167F.2040406@net-b.de> Date: Mon, 06 Sep 2010 00:15:27 +0200 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; de; rv:1.9.2.7) Gecko/20100714 SUSE/3.1.1 Thunderbird/3.1.1 MIME-Version: 1.0 To: gcc patches , gfortran Subject: [Patch, Fortran, committed] Add (long int) casting to libgfortran/m4/bessel.m4 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Committed as obvious (Rev. 163885). Thanks to Jerry for reporting the warning (on 32bit). Tobias 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. Index: libgfortran/m4/bessel.m4 =================================================================== --- libgfortran/m4/bessel.m4 (Revision 163882) +++ libgfortran/m4/bessel.m4 (Arbeitskopie) @@ -67,7 +67,7 @@ bessel_jn_r'rtype_kind` ('rtype` * const && 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); @@ -135,7 +135,7 @@ bessel_yn_r'rtype_kind` ('rtype` * const && 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); Index: libgfortran/generated/bessel_r10.c =================================================================== --- libgfortran/generated/bessel_r10.c (Revision 163882) +++ libgfortran/generated/bessel_r10.c (Arbeitskopie) @@ -66,7 +66,7 @@ bessel_jn_r10 (gfc_array_r10 * const res && 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 res && 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); Index: libgfortran/generated/bessel_r16.c =================================================================== --- libgfortran/generated/bessel_r16.c (Revision 163882) +++ libgfortran/generated/bessel_r16.c (Arbeitskopie) @@ -70,7 +70,7 @@ bessel_jn_r16 (gfc_array_r16 * const res && 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); @@ -138,7 +138,7 @@ bessel_yn_r16 (gfc_array_r16 * const res && 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); Index: libgfortran/generated/bessel_r4.c =================================================================== --- libgfortran/generated/bessel_r4.c (Revision 163882) +++ libgfortran/generated/bessel_r4.c (Arbeitskopie) @@ -66,7 +66,7 @@ bessel_jn_r4 (gfc_array_r4 * const restr && 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 restr && 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); Index: libgfortran/generated/bessel_r8.c =================================================================== --- libgfortran/generated/bessel_r8.c (Revision 163882) +++ libgfortran/generated/bessel_r8.c (Arbeitskopie) @@ -66,7 +66,7 @@ bessel_jn_r8 (gfc_array_r8 * const restr && 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_r8 (gfc_array_r8 * const restr && 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);