[Bug testsuite/54397] [regression] gfortran.dg/guality/pr41558.f90

[sgk at troutmask dot apl.washington.edu]

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

--- Comment #3 from Steve Kargl <sgk at troutmask dot apl.washington.edu> 2012-08-30 00:14:36 UTC ---
On Tue, Aug 28, 2012 at 11:58:34PM +0000, kargl at gcc dot gnu.org wrote:
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54397
> 
> Reading symbols from
> /usr/home/sgk/gcc/obj4x/gcc/testsuite/gfortran/pr41558.exe...done.
> Breakpoint 1 at 0x400b04: file
> /home/sgk/gcc/gcc4x/gcc/testsuite/gfortran.dg/guality/pr41558.f90, line 7.
> 
> Breakpoint 1, 0x0000000000400b04 in f_ ()
> $1 = (<invalid float value>, inf, -inf, -inf, -inf, <invalid float value>)
> $2 = 'foo'
> A debugging session is active.
> 
>     Inferior 1 [process 7463] will be killed.
> 
> Quit anyway? (y or n) [answered Y; input not from terminal]
> (<invalid float value>, inf, -inf, -inf, -inf, <invalid float value>) != 'foo'
> FAIL: gfortran.dg/guality/pr41558.f90  -O0  line 7 s == 'foo'
> 

The above failure is cause by 

------------------------------------------------------------------------
r190543 | mark | 2012-08-20 13:27:46 -0700 (Mon, 20 Aug 2012) | 16 lines

dwarf2out.c: For DWARF 4+, output DW_AT_high_pc as constant offset.

        * dwarf2out.h (enum dw_val_class): Add dw_val_class_high_pc.
        * dwarf2out.c (dw_val_equal_p): Handle dw_val_class_high_pc.
        (add_AT_low_high_pc): New function.
        (AT_lbl): Handle dw_val_class_high_pc.
        (print_die): Likewise.
        (attr_checksum): Likewise.
        (attr_checksum_ordered): Likewise.
        (same_dw_val_p): Likewise.
        (size_of_die): Likewise.
        (value_format): Likewise.
        (output_die): Likewise.
        (gen_subprogram_die): Use add_AT_low_high_pc.
        (add_high_low_attributes): Likewise.
        (dwarf2out_finish): Likewise.