All,
I have a query on the symbols(symbol #51 and symbol #53) open64
is creating for the " derived-type":
>>
MODULE module_quilt_outbuf_ops
TYPE varpatch
INTEGER, POINTER :: rptr
END TYPE varpatch
TYPE(varpatch) :: derived_type
END MODULE module_quilt_outbuf_ops
>>
Compile: openf90 -O0 -keep ftest-module.f90
File: ftest-module.B
>>
[51]: .data_init.in.module_quilt_outbuf_ops__ <1,51>
----------------------------> Why?
Variable of type .common. (#54, KIND_STRUCT)
Address: 0(.data_init.in.module_quilt_outbuf_ops__<1,51>)
Alignment: 16 bytes
Flags: 0x00000008 initialized, XPREEMPTIBLE
Sclass: DGLOBAL
[52]: DERIVED_TYPE <1,52> Variable of type VARPATCH (#55, KIND_STRUCT)
Address: 0(.data_init.in.module_quilt_outbuf_ops__<1,51>)
Alignment: 8 bytes
Flags: 0x00000008 initialized, XLOCAL
Sclass: DGLOBAL
[53]: <constant> <1,53> Constant of type .typeless. (#59, KIND_ARRAY)
--------------------------------------> Why?
value: (48 hex bytes) 0, 0, 0, 0, 0, 0, 0, 0, 20, 0, 0, 0, 0,
0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0
Address: 0(<1,53>) Alignment: 1 bytes
Flags: 0x00000008 initialized, XLOCAL
Sclass: FSTATIC
>>
Thanks
Anupama
------------------------------------------------------------------------------
EMC VNX: the world's simplest storage, starting under $10K
The only unified storage solution that offers unified management
Up to 160% more powerful than alternatives and 25% more efficient.
Guaranteed. http://p.sf.net/sfu/emc-vnx-dev2dev
_______________________________________________
Open64-devel mailing list
Open64-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/open64-devel
