From patchwork Thu Aug 19 07:36:18 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 62114 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 97A35B70D3 for ; Thu, 19 Aug 2010 17:36:33 +1000 (EST) Received: (qmail 6471 invoked by alias); 19 Aug 2010 07:36:30 -0000 Received: (qmail 6458 invoked by uid 22791); 19 Aug 2010 07:36:29 -0000 X-SWARE-Spam-Status: No, hits=-1.4 required=5.0 tests=AWL, BAYES_00, MISSING_HEADERS, 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; Thu, 19 Aug 2010 07:36:23 +0000 Received: from [192.168.178.22] (port-92-204-42-5.dynamic.qsc.de [92.204.42.5]) by mx02.qsc.de (Postfix) with ESMTP id 38D531DB31; Thu, 19 Aug 2010 09:36:20 +0200 (CEST) Message-ID: <4C6CDEF2.8050602@net-b.de> Date: Thu, 19 Aug 2010 09:36:18 +0200 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2.7) Gecko/20100714 SUSE/3.1.1 Thunderbird/3.1.1 MIME-Version: 1.0 CC: gcc-patches@gcc.gnu.org, fortran@gcc.gnu.org Subject: Re: [Patch, Fortran] PR36158 - Add transformational version of BESSEL_JN intrinsic References: <20100818103725.GA1023@physik.fu-berlin.de> <20100819033446.GA46540@troutmask.apl.washington.edu> <4C6CDD82.7090106@net-b.de> In-Reply-To: <4C6CDD82.7090106@net-b.de> 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 On 08/19/2010 09:30 AM, Tobias Burnus wrote: > Thanks for reviewing. Committed as Rev. 163364. It helps if one not only finds typos before committal but also fixes them before committal ... Committed as Rev. 163365. Tobias Index: gcc/fortran/ChangeLog =================================================================== --- gcc/fortran/ChangeLog (revision 163364) +++ gcc/fortran/ChangeLog (working copy) @@ -1,5 +1,11 @@ 2010-08-19 Tobias Burnus + * intrinsic.texi (Bessel_jn, Bessel_yn): Fix typo. + * * simplify.c (gfc_simplify_bessel_yn): Change recursive + into recurrence. + +2010-08-19 Tobias Burnus + PR fortran/36158 PR fortran/33197 * check.c (gfc_check_bessel_n2): New function. Index: gcc/fortran/intrinsic.texi =================================================================== --- gcc/fortran/intrinsic.texi (revision 163364) +++ gcc/fortran/intrinsic.texi (working copy) @@ -1661,7 +1661,7 @@ kind as @var{X}. @item @emph{Note}: -The transformational function uses a recurrance algorithm which might, +The transformational function uses a recurrence algorithm which might, for some values of @var{X}, lead to different results than calls to the elemental function. @@ -1821,7 +1821,7 @@ kind as @var{X}. @item @emph{Note}: -The transformational function uses a recurrance algorithm which might, +The transformational function uses a recurrence algorithm which might, for some values of @var{X}, lead to different results than calls to the elemental function. Index: gcc/fortran/simplify.c =================================================================== --- gcc/fortran/simplify.c (revision 163364) +++ gcc/fortran/simplify.c (working copy) @@ -1261,7 +1261,7 @@ return result; } - /* Use the faster but more verbose recursion algorithm. Bessel functions + /* Use the faster but more verbose recurrence algorithm. Bessel functions are stable for downward recursion and Neumann functions are stable for upward recursion. It is x2rev = 2.0/x,