From patchwork Sat Aug 28 14:29:01 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 62902 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 227FCB711A for ; Sun, 29 Aug 2010 00:29:11 +1000 (EST) Received: (qmail 27174 invoked by alias); 28 Aug 2010 14:29:09 -0000 Received: (qmail 27159 invoked by uid 22791); 28 Aug 2010 14:29:08 -0000 X-SWARE-Spam-Status: No, hits=-0.5 required=5.0 tests=AWL, BAYES_50, RCVD_IN_DNSWL_NONE X-Spam-Check-By: sourceware.org Received: from mx01.qsc.de (HELO mx01.qsc.de) (213.148.129.14) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sat, 28 Aug 2010 14:29:03 +0000 Received: from [192.168.178.22] (port-92-204-46-222.dynamic.qsc.de [92.204.46.222]) by mx01.qsc.de (Postfix) with ESMTP id 4706E3D3AC; Sat, 28 Aug 2010 16:29:00 +0200 (CEST) Message-ID: <4C791D2D.30006@net-b.de> Date: Sat, 28 Aug 2010 16:29:01 +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] bessel_7.f90 decrease precision, simplify.c - minor clean up 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. 163615). Tobias Index: testsuite/ChangeLog =================================================================== --- testsuite/ChangeLog (Revision 163613) +++ testsuite/ChangeLog (Arbeitskopie) @@ -1,3 +1,8 @@ +2010-07-21 Steven G. Kargl + Tobias Burnus + + * gfortran.dg/bessel_7.f90: Decrease required precision. + 2010-08-27 Naveen H.S Kaz Kojima Index: testsuite/gfortran.dg/bessel_7.f90 =================================================================== --- testsuite/gfortran.dg/bessel_7.f90 (Revision 163613) +++ testsuite/gfortran.dg/bessel_7.f90 (Arbeitskopie) @@ -8,7 +8,7 @@ implicit none real,parameter :: values(*) = [0.0, 0.5, 1.0, 0.9, 1.8,2.0,3.0,4.0,4.25,8.0,34.53, 475.78] real,parameter :: myeps(size(values)) = epsilon(0.0) & - * [2, 3, 3, 5, 7, 2, 12, 4, 7, 3, 30, 168 ] + * [2, 3, 4, 5, 7, 2, 12, 4, 7, 6, 30, 168 ] ! The following is sufficient for me - the values above are a bit ! more tolerant ! * [0, 0, 0, 3, 3, 0, 9, 0, 2, 1, 22, 130 ] @@ -19,7 +19,7 @@ real :: rec(0:Nmax), lib(0:Nmax) integer :: i do i = 1, ubound(values,dim=1) - call compare(values(i), myeps(i), nit(i), 3*epsilon(0.0)) + call compare(values(i), myeps(i), nit(i), 6*epsilon(0.0)) end do contains Index: fortran/ChangeLog =================================================================== --- fortran/ChangeLog (Revision 163613) +++ fortran/ChangeLog (Arbeitskopie) @@ -1,3 +1,8 @@ +2010-07-21 Steven G. Kargl + + * simplify.c (gfc_simplify_bessel_n2): Fix indention + and argument type. + 2010-08-28 Francois-Xavier Coudert PR fortran/45436 Index: fortran/simplify.c =================================================================== --- fortran/simplify.c (Revision 163613) +++ fortran/simplify.c (Arbeitskopie) @@ -1241,7 +1241,7 @@ gfc_simplify_bessel_n2 (gfc_expr *order1 if (jn && n1 == 0) { e = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); - mpfr_set_ui (e->value.real, 1.0, GFC_RND_MODE); + mpfr_set_ui (e->value.real, 1, GFC_RND_MODE); gfc_constructor_append_expr (&result->value.constructor, e, &x->where); n1++; @@ -1251,7 +1251,7 @@ gfc_simplify_bessel_n2 (gfc_expr *order1 { e = gfc_get_constant_expr (x->ts.type, x->ts.kind, &x->where); if (jn) - mpfr_set_ui (e->value.real, 0.0, GFC_RND_MODE); + mpfr_set_ui (e->value.real, 0, GFC_RND_MODE); else mpfr_set_inf (e->value.real, -1); gfc_constructor_append_expr (&result->value.constructor, e, @@ -1315,7 +1315,7 @@ gfc_simplify_bessel_n2 (gfc_expr *order1 return &gfc_bad_expr; } if (jn) - gfc_constructor_insert_expr (&result->value.constructor, e, &x->where, -2); + gfc_constructor_insert_expr (&result->value.constructor, e, &x->where, -2); else gfc_constructor_append_expr (&result->value.constructor, e, &x->where);