------- Comment #3 from danglin at gcc dot gnu dot org 2007-12-27 22:26 -------
Looking some more:
Breakpoint 1, dbxout_symbol_location (decl=0x40068810, type=0x40053810,
suffix=0x400561e4 "~*", home=0x3fb99999) at ../../gcc/gcc/dbxout.c:2819
2819 if (!targetm.have_tls
(gdb) p debug_tree ($r26)
<var_decl 7ade6210 bar2
type <array_type 7ae1e750
type <integer_type 7ade92d8 integer(kind=4) public SI
size <integer_cst 7adde540 constant invariant 32>
unit size <integer_cst 7adde2e0 constant invariant 4>
align 32 symtab 15 alias set 4 canonical type 7ade92d8 precision 32
min <integer_cst 7adde4e0 -2147483648> max <integer_cst 7adde500 2147483647>
pointer_to_this <pointer_type 7ade9d00> reference_to_this
<reference_type 7ae21340>>
type_2 BLK
size <integer_cst 7adde660 constant invariant 64>
unit size <integer_cst 7adde680 constant invariant 8>
align 32 symtab 0 alias set 19 canonical type 7ae1e750
domain <integer_type 7ae1e1a0 type <integer_type 7ade92d8
integer(kind=4)>
SI size <integer_cst 7adde540 32> unit size <integer_cst 7adde2e0
4>
align 32 symtab 0 alias set -1 canonical type 7ae1e1a0 precision 32
min <integer_cst 7adde960 0> max <integer_cst 7adde980 1>>
pointer_to_this <pointer_type 7ae214e0>>
addressable asm_written used public static decl_3 BLK file
/test/gnu/gcc/gcc/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 line 13
col 0 size <integer_cst 7adde660 64> unit size <integer_cst 7adde680 8>
align 32 context <function_decl 7ae1c5b0 MAIN__>
value-expr <component_ref 7ade71b8 type <array_type 7ae1e750>
arg 0 <var_decl 7ade6160 thrc type <record_type 7ae1ea90>
addressable public static common tls-local-exec decl_3 BLK file
/test/gnu/gcc/gcc/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 line 14
col 0
size <integer_cst 7addea80 constant invariant 256>
unit size <integer_cst 7adde2c0 constant invariant 32>
align 64 context <function_decl 7ae1c5b0 MAIN__>
(mem/s/c:BLK (symbol_ref:SI ("thrc_") <var_decl 7ade6160 thrc>) [23
thrc+0 S32 A64]) chain <function_decl 7ae1c5b0 MAIN__>>
arg 1 <field_decl 7ae1b660 bar2 type <array_type 7ae1e750>
BLK file
/test/gnu/gcc/gcc/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 line 13
col 0 size <integer_cst 7adde660 64> unit size <integer_cst 7adde680 8>
align 32 offset_align 64
offset <integer_cst 7ae16600 constant invariant 24>
bit offset <integer_cst 7adde880 constant invariant 0> context
<record_type 7ae1ea90>>> chain <var_decl 7ade61b8 bar1>>
$6 = void
(gdb) p debug_rtx ($r23)
(mem/s/c:BLK (const:SI (plus:SI (symbol_ref:SI ("thrc_") <var_decl 7ade6160
thrc>)
(const_int 24 [0x18]))) [23 thrc+24 S8 A64])
$7 = void
(gdb) p debug_tree (0x7ade6160)
<var_decl 7ade6160 thrc
type <record_type 7ae1ea90 BLK
size <integer_cst 7addea80 constant invariant 256>
unit size <integer_cst 7adde2c0 constant invariant 32>
align 32 symtab 0 alias set 23 canonical type 7ae1ea90
fields <field_decl 7ae1b600 bar1 type <record_type 7ae1e680
array1_integer(kind=4)>
BLK file
/test/gnu/gcc/gcc/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 line 12
col 0
size <integer_cst 7ae16700 constant invariant 192>
unit size <integer_cst 7ae16600 constant invariant 24>
align 32 offset_align 64
offset <integer_cst 7adde300 constant invariant 0>
bit offset <integer_cst 7adde880 constant invariant 0> context
<record_type 7ae1ea90> chain <field_decl 7ae1b660 bar2>>
pointer_to_this <pointer_type 7ae2bf70>>
addressable public static common tls-local-exec decl_3 BLK file
/test/gnu/gcc/gcc/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 line 14
col 0 size <integer_cst 7addea80 256> unit size <integer_cst 7adde2c0 32>
align 64 context <function_decl 7ae1c5b0 MAIN__>
(mem/s/c:BLK (symbol_ref:SI ("thrc_") <var_decl 7ade6160 thrc>) [23 thrc+0
S32 A64]) chain <function_decl 7ae1c5b0 MAIN__>>
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31510
