[Bug debug/49981] New: entryval: missing DW_AT_GNU_call_site_data_value for Fortran parameter

[jan.kratochvil at redhat dot com]

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

           Summary: entryval: missing DW_AT_GNU_call_site_data_value for
                    Fortran parameter
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: debug
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: jan.kratochvil@redhat.com
                CC: jakub@redhat.com
            Target: x86_64-unknown-linux-gnu


FAIL: gcc (GCC) 4.7.0 20110804 (experimental)
-------------------------------------------------------------------------------
        integer :: var_i = 1
;        write (*,*) 'before sub: ', var_i
        call sub (var_i)
;        write (*,*) 'after sub: ', var_i
        stop
        end

        subroutine sub (param)
        integer :: param
;        write (*,*) 'before assignment: ', param
        param = 10
;        write (*,*) 'after assignment: ', param
        return
        end
-------------------------------------------------------------------------------
-Wall -g -O2 
-------------------------------------------------------------------------------
 <1><32>: Abbrev Number: 2 (DW_TAG_subprogram)
    <34>   DW_AT_name        : sub
 <2><57>: Abbrev Number: 3 (DW_TAG_formal_parameter)
    <58>   DW_AT_name        : (indirect string, offset: 0xd1): param
    <5e>   DW_AT_type        : <0x175>
    <62>   DW_AT_location    : 0x75     (location list)
 <1><175>: Abbrev Number: 9 (DW_TAG_base_type)
    <176>   DW_AT_byte_size   : 4
    <177>   DW_AT_encoding    : 5       (signed)
    <178>   DW_AT_name        : integer(kind=4)
 <2><2df>: Abbrev Number: 5 (DW_TAG_GNU_call_site)
    <2e0>   DW_AT_low_pc      : 0x4008f5
    <2e8>   DW_AT_abstract_origin: <0x32>
 <3><2f0>: Abbrev Number: 6 (DW_TAG_GNU_call_site_parameter)
    <2f1>   DW_AT_location    : 1 byte block: 55        (DW_OP_reg5 (rdi))
    <2f3>   DW_AT_GNU_call_site_value: 9 byte block: 3 88 e 60 0 0 0 0 0       
(DW_OP_addr: 600e88)

    Offset   Begin    End      Expression
    00000075 00000000004007d0 00000000004007de (DW_OP_breg5 (rdi): 0)
    00000075 00000000004007de 000000000040088d (DW_OP_breg3 (rbx): 0)
    00000075 000000000040088d 000000000040088e (DW_OP_GNU_entry_value:
(DW_OP_reg5 (rdi)))
    00000075 <End of list>

but there should be also DW_AT_GNU_call_site_data_value.
(I do not know if GCC ever creates *_data_value for Fortran.)