Home
last modified time | relevance | path

Searched refs:dtype_node (Results 1 – 2 of 2) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-types.c140 tree dtype_node; in get_dtype_type_node() local
145 dtype_node = make_node (RECORD_TYPE); in get_dtype_type_node()
146 TYPE_NAME (dtype_node) = get_identifier ("dtype_type"); in get_dtype_type_node()
147 TYPE_NAMELESS (dtype_node) = 1; in get_dtype_type_node()
148 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
152 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
156 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
160 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
164 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
168 gfc_finish_type (dtype_node); in get_dtype_type_node()
[all …]
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-types.cc143 tree dtype_node; in get_dtype_type_node() local
148 dtype_node = make_node (RECORD_TYPE); in get_dtype_type_node()
149 TYPE_NAME (dtype_node) = get_identifier ("dtype_type"); in get_dtype_type_node()
150 TYPE_NAMELESS (dtype_node) = 1; in get_dtype_type_node()
151 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
155 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
159 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
163 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
167 field = gfc_add_field_to_struct_1 (dtype_node, in get_dtype_type_node()
171 gfc_finish_type (dtype_node); in get_dtype_type_node()
[all …]