Patchwork [testsuite] : Use dg-add-options ieee in gfortran.dg/typebound_operator_8.f03

login
register
mail settings
Submitter Uros Bizjak
Date Jan. 3, 2012, 6:36 p.m.
Message ID <CAFULd4ZyCxUmLXweZiBNRBk6O1F-MUnj_FOE+F4ZC3WvDAPaPQ@mail.gmail.com>
Download mbox | patch
Permalink /patch/134054/
State New
Headers show

Comments

Uros Bizjak - Jan. 3, 2012, 6:36 p.m.
Hello!

-mieee is needed for this runtime test to avoid

FAIL: gfortran.dg/typebound_operator_8.f03  -O0  execution test
FAIL: gfortran.dg/typebound_operator_8.f03  -Os  execution test

on alpha-linux-gnu.

Probably underflow, or something exceptional, gdb is not a friend with
fortran code on this target:

Program received signal SIGFPE, Arithmetic exception.
0x0000000120004190 in cartesian_2d_objects::process_cart2d_p (obj=...)
    at /home/uros/gcc-svn/trunk/gcc/testsuite/gfortran.dg/typebound_operator_8.f03:172
172                 process_cart2d_p%c = -sign (obj%c, 1.0)*obj%c** 4
(gdb)

2012-01-03  Uros Bizjak  <ubizjak@gmail.com>

        * gfortran.dg/typebound_operator_8.f03: Use dg-add-options ieee.

Tested on alphaev68-unknown-linux-gnu, committed to mainline SVN.

Uros.
Paul Richard Thomas - Jan. 4, 2012, 7:31 a.m.
Dear Uros,

Thanks for that.  It is not a problem that I encountered on either the
32 bit or 64 bit machines that I use but, as you say, an underflow is
the most likely explanation.  I guess that without any loss, as far as
the test is concerned, a test that obj%c(i,j) is greater than 1e-5,
say, could have been done before raising it to the fourth power!

Cheers

Paul

On Tue, Jan 3, 2012 at 7:36 PM, Uros Bizjak <ubizjak@gmail.com> wrote:
> Hello!
>
> -mieee is needed for this runtime test to avoid
>
> FAIL: gfortran.dg/typebound_operator_8.f03  -O0  execution test
> FAIL: gfortran.dg/typebound_operator_8.f03  -Os  execution test
>
> on alpha-linux-gnu.
>
> Probably underflow, or something exceptional, gdb is not a friend with
> fortran code on this target:
>
> Program received signal SIGFPE, Arithmetic exception.
> 0x0000000120004190 in cartesian_2d_objects::process_cart2d_p (obj=...)
>    at /home/uros/gcc-svn/trunk/gcc/testsuite/gfortran.dg/typebound_operator_8.f03:172
> 172                 process_cart2d_p%c = -sign (obj%c, 1.0)*obj%c** 4
> (gdb)
>
> 2012-01-03  Uros Bizjak  <ubizjak@gmail.com>
>
>        * gfortran.dg/typebound_operator_8.f03: Use dg-add-options ieee.
>
> Tested on alphaev68-unknown-linux-gnu, committed to mainline SVN.
>
> Uros.
>
> Index: gfortran.dg/typebound_operator_8.f03
> ===================================================================
> --- gfortran.dg/typebound_operator_8.f03        (revision 182853)
> +++ gfortran.dg/typebound_operator_8.f03        (working copy)
> @@ -1,4 +1,5 @@
>  ! { dg-do run }
> +! { dg-add-options ieee }
>  !
>  !     Solve a diffusion problem using an object-oriented approach
>  !

Patch

Index: gfortran.dg/typebound_operator_8.f03
===================================================================
--- gfortran.dg/typebound_operator_8.f03        (revision 182853)
+++ gfortran.dg/typebound_operator_8.f03        (working copy)
@@ -1,4 +1,5 @@ 
 ! { dg-do run }
+! { dg-add-options ieee }
 !
 !     Solve a diffusion problem using an object-oriented approach
 !