[Bug fortran/24875] [gfortran, 4.1.0 regression] Arithmetic overflow during compilation

[martin at mpa-garching dot mpg dot de]

------- Comment #5 from martin at mpa-garching dot mpg dot de  2005-11-15 21:16 
-------
~/tmp>gfortran -c -fdump-parse-tree huge.f90

        Namespace: A-Z: (UNKNOWN 0)
        procedure name = mod1
        symtree: gndp_max  Ambig 0
        symbol gndp_max (REAL 8)(PARAMETER UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC)
        value: 1.79769313486232e308_8

        symtree: gndp  Ambig 0
        symbol gndp (INTEGER 4)(PARAMETER UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC)
        value: 8

        symtree: mod1  Ambig 0
        symbol mod1 (UNKNOWN 0)(MODULE UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC)

        symtree: huge  Ambig 0
        symbol huge (UNKNOWN 0)(PROCEDURE UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC FUNCTION)
        result: huge

        symtree: kind  Ambig 0
        symbol kind (UNKNOWN 0)(PROCEDURE UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC FUNCTION)
        result: kind



 In file huge.f90:15

    val = -GNDP_MAX
                  1
Error: Arithmetic overflow at (1)

        Namespace: A-Z: (UNKNOWN 0)
        procedure name = mod2
        symtree: gndp_max  Ambig 0
        symbol gndp_max (REAL 8)(PARAMETER UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC USE-ASSOC)
        value: 1.79769313486232e308_8

        symtree: gndp  Ambig 0
        symbol gndp (INTEGER 4)(PARAMETER UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC USE-ASSOC)
        value: 8

        symtree: foo  Ambig 0
        symbol foo (UNKNOWN 0)(PROCEDURE UNKNOWN-INTENT UNKNOWN-ACCESS
MODULE-PROC SUBROUTINE)

        symtree: mod2  Ambig 0
        symbol mod2 (UNKNOWN 0)(MODULE UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC)

        symtree: kind  Ambig 0
        symbol kind (UNKNOWN 0)(PROCEDURE UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC USE-ASSOC FUNCTION)
        result: kind

        symtree: huge  Ambig 0
        symbol huge (UNKNOWN 0)(PROCEDURE UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC USE-ASSOC FUNCTION)
        result: huge

        symtree: mod1  Ambig 0
        symbol mod1 (UNKNOWN 0)(MODULE UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC USE-ASSOC)



        CONTAINS

          Namespace: A-Z: (UNKNOWN 0)
          procedure name = foo
          symtree: foo  Ambig 0 from namespace mod2
          symtree: val  Ambig 0
          symbol val (REAL 8)(VARIABLE UNKNOWN-INTENT UNKNOWN-ACCESS
UNKNOWN-PROC)




~/tmp>     
~/tmp>cat mod1.mod
GFORTRAN module created from huge.f90 on Tue Nov 15 22:14:38 2005
If you edit this, you'll get what you deserve.

(() () () () () () () () () () () () () () () () () () () ())

()

()

()

()

(2 'gndp' 'mod1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0 '8') () 0 () ())
3 'kind' '(intrinsic)' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
FUNCTION) (UNKNOWN 0 ()) 0 0 () () 3 () ())
4 'huge' '(intrinsic)' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
FUNCTION) (UNKNOWN 0 ()) 0 0 () () 4 () ())
5 'mod1' 'mod1' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
UNKNOWN 0 ()) 0 0 () () 0 () ())
6 'gndp_max' 'mod1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
REAL 8 ()) 0 0 () (CONSTANT (REAL 8 ()) 0 '[EMAIL PROTECTED]') () 0 ()
())
)

('gndp_max' 0 6 'gndp' 0 2 'mod1' 0 5 'huge' 0 4 'kind' 0 3)
~/tmp>           


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24875