Home
last modified time | relevance | path

Searched refs:shape_data (Results 1 – 25 of 28) sorted by relevance

12

/netbsd-src/external/gpl3/gcc/dist/libgfortran/generated/
H A Dreshape_c4.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c4() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c4()
91 if (shape_data[n] <= 0) in reshape_c4()
93 shape_data[n] = 0; in reshape_c4()
105 rex = shape_data[n]; in reshape_c4()
163 rs *= shape_data[n]; in reshape_c4()
165 if (ret_extent != shape_data[n]) in reshape_c4()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c4()
226 if (rextent[n] != shape_data[dim]) in reshape_c4()
H A Dreshape_r4.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r4() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r4()
91 if (shape_data[n] <= 0) in reshape_r4()
93 shape_data[n] = 0; in reshape_r4()
105 rex = shape_data[n]; in reshape_r4()
163 rs *= shape_data[n]; in reshape_r4()
165 if (ret_extent != shape_data[n]) in reshape_r4()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r4()
226 if (rextent[n] != shape_data[dim]) in reshape_r4()
H A Dreshape_r10.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r10() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r10()
91 if (shape_data[n] <= 0) in reshape_r10()
93 shape_data[n] = 0; in reshape_r10()
105 rex = shape_data[n]; in reshape_r10()
163 rs *= shape_data[n]; in reshape_r10()
165 if (ret_extent != shape_data[n]) in reshape_r10()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r10()
226 if (rextent[n] != shape_data[dim]) in reshape_r10()
H A Dreshape_c10.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c10() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c10()
91 if (shape_data[n] <= 0) in reshape_c10()
93 shape_data[n] = 0; in reshape_c10()
105 rex = shape_data[n]; in reshape_c10()
163 rs *= shape_data[n]; in reshape_c10()
165 if (ret_extent != shape_data[n]) in reshape_c10()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c10()
226 if (rextent[n] != shape_data[dim]) in reshape_c10()
H A Dreshape_i8.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_8() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_8()
91 if (shape_data[n] <= 0) in reshape_8()
93 shape_data[n] = 0; in reshape_8()
105 rex = shape_data[n]; in reshape_8()
163 rs *= shape_data[n]; in reshape_8()
165 if (ret_extent != shape_data[n]) in reshape_8()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_8()
226 if (rextent[n] != shape_data[dim]) in reshape_8()
H A Dreshape_r8.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r8() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r8()
91 if (shape_data[n] <= 0) in reshape_r8()
93 shape_data[n] = 0; in reshape_r8()
105 rex = shape_data[n]; in reshape_r8()
163 rs *= shape_data[n]; in reshape_r8()
165 if (ret_extent != shape_data[n]) in reshape_r8()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r8()
226 if (rextent[n] != shape_data[dim]) in reshape_r8()
H A Dreshape_r17.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r17() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r17()
91 if (shape_data[n] <= 0) in reshape_r17()
93 shape_data[n] = 0; in reshape_r17()
105 rex = shape_data[n]; in reshape_r17()
163 rs *= shape_data[n]; in reshape_r17()
165 if (ret_extent != shape_data[n]) in reshape_r17()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r17()
226 if (rextent[n] != shape_data[dim]) in reshape_r17()
H A Dreshape_c17.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c17() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c17()
91 if (shape_data[n] <= 0) in reshape_c17()
93 shape_data[n] = 0; in reshape_c17()
105 rex = shape_data[n]; in reshape_c17()
163 rs *= shape_data[n]; in reshape_c17()
165 if (ret_extent != shape_data[n]) in reshape_c17()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c17()
226 if (rextent[n] != shape_data[dim]) in reshape_c17()
H A Dreshape_r16.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r16() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r16()
91 if (shape_data[n] <= 0) in reshape_r16()
93 shape_data[n] = 0; in reshape_r16()
105 rex = shape_data[n]; in reshape_r16()
163 rs *= shape_data[n]; in reshape_r16()
165 if (ret_extent != shape_data[n]) in reshape_r16()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r16()
226 if (rextent[n] != shape_data[dim]) in reshape_r16()
H A Dreshape_c16.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c16() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c16()
91 if (shape_data[n] <= 0) in reshape_c16()
93 shape_data[n] = 0; in reshape_c16()
105 rex = shape_data[n]; in reshape_c16()
163 rs *= shape_data[n]; in reshape_c16()
165 if (ret_extent != shape_data[n]) in reshape_c16()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c16()
226 if (rextent[n] != shape_data[dim]) in reshape_c16()
H A Dreshape_i16.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_16() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_16()
91 if (shape_data[n] <= 0) in reshape_16()
93 shape_data[n] = 0; in reshape_16()
105 rex = shape_data[n]; in reshape_16()
163 rs *= shape_data[n]; in reshape_16()
165 if (ret_extent != shape_data[n]) in reshape_16()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_16()
226 if (rextent[n] != shape_data[dim]) in reshape_16()
H A Dreshape_c8.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c8() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c8()
91 if (shape_data[n] <= 0) in reshape_c8()
93 shape_data[n] = 0; in reshape_c8()
105 rex = shape_data[n]; in reshape_c8()
163 rs *= shape_data[n]; in reshape_c8()
165 if (ret_extent != shape_data[n]) in reshape_c8()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c8()
226 if (rextent[n] != shape_data[dim]) in reshape_c8()
H A Dreshape_i4.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_4() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_4()
91 if (shape_data[n] <= 0) in reshape_4()
93 shape_data[n] = 0; in reshape_4()
105 rex = shape_data[n]; in reshape_4()
163 rs *= shape_data[n]; in reshape_4()
165 if (ret_extent != shape_data[n]) in reshape_4()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_4()
226 if (rextent[n] != shape_data[dim]) in reshape_4()
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/generated/
H A Dreshape_c8.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c8() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c8()
91 if (shape_data[n] <= 0) in reshape_c8()
93 shape_data[n] = 0; in reshape_c8()
105 rex = shape_data[n]; in reshape_c8()
163 rs *= shape_data[n]; in reshape_c8()
165 if (ret_extent != shape_data[n]) in reshape_c8()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c8()
226 if (rextent[n] != shape_data[dim]) in reshape_c8()
H A Dreshape_c16.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c16() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c16()
91 if (shape_data[n] <= 0) in reshape_c16()
93 shape_data[n] = 0; in reshape_c16()
105 rex = shape_data[n]; in reshape_c16()
163 rs *= shape_data[n]; in reshape_c16()
165 if (ret_extent != shape_data[n]) in reshape_c16()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c16()
226 if (rextent[n] != shape_data[dim]) in reshape_c16()
H A Dreshape_r8.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r8() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r8()
91 if (shape_data[n] <= 0) in reshape_r8()
93 shape_data[n] = 0; in reshape_r8()
105 rex = shape_data[n]; in reshape_r8()
163 rs *= shape_data[n]; in reshape_r8()
165 if (ret_extent != shape_data[n]) in reshape_r8()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r8()
226 if (rextent[n] != shape_data[dim]) in reshape_r8()
H A Dreshape_r16.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r16() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r16()
91 if (shape_data[n] <= 0) in reshape_r16()
93 shape_data[n] = 0; in reshape_r16()
105 rex = shape_data[n]; in reshape_r16()
163 rs *= shape_data[n]; in reshape_r16()
165 if (ret_extent != shape_data[n]) in reshape_r16()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r16()
226 if (rextent[n] != shape_data[dim]) in reshape_r16()
H A Dreshape_c4.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c4() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c4()
91 if (shape_data[n] <= 0) in reshape_c4()
93 shape_data[n] = 0; in reshape_c4()
105 rex = shape_data[n]; in reshape_c4()
163 rs *= shape_data[n]; in reshape_c4()
165 if (ret_extent != shape_data[n]) in reshape_c4()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c4()
226 if (rextent[n] != shape_data[dim]) in reshape_c4()
H A Dreshape_r10.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r10() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r10()
91 if (shape_data[n] <= 0) in reshape_r10()
93 shape_data[n] = 0; in reshape_r10()
105 rex = shape_data[n]; in reshape_r10()
163 rs *= shape_data[n]; in reshape_r10()
165 if (ret_extent != shape_data[n]) in reshape_r10()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r10()
226 if (rextent[n] != shape_data[dim]) in reshape_r10()
H A Dreshape_i8.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_8() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_8()
91 if (shape_data[n] <= 0) in reshape_8()
93 shape_data[n] = 0; in reshape_8()
105 rex = shape_data[n]; in reshape_8()
163 rs *= shape_data[n]; in reshape_8()
165 if (ret_extent != shape_data[n]) in reshape_8()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_8()
226 if (rextent[n] != shape_data[dim]) in reshape_8()
H A Dreshape_i4.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_4() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_4()
91 if (shape_data[n] <= 0) in reshape_4()
93 shape_data[n] = 0; in reshape_4()
105 rex = shape_data[n]; in reshape_4()
163 rs *= shape_data[n]; in reshape_4()
165 if (ret_extent != shape_data[n]) in reshape_4()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_4()
226 if (rextent[n] != shape_data[dim]) in reshape_4()
H A Dreshape_i16.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_16() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_16()
91 if (shape_data[n] <= 0) in reshape_16()
93 shape_data[n] = 0; in reshape_16()
105 rex = shape_data[n]; in reshape_16()
163 rs *= shape_data[n]; in reshape_16()
165 if (ret_extent != shape_data[n]) in reshape_16()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_16()
226 if (rextent[n] != shape_data[dim]) in reshape_16()
H A Dreshape_r4.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_r4() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_r4()
91 if (shape_data[n] <= 0) in reshape_r4()
93 shape_data[n] = 0; in reshape_r4()
105 rex = shape_data[n]; in reshape_r4()
163 rs *= shape_data[n]; in reshape_r4()
165 if (ret_extent != shape_data[n]) in reshape_r4()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_r4()
226 if (rextent[n] != shape_data[dim]) in reshape_r4()
H A Dreshape_c10.c76 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_c10() local
90 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_c10()
91 if (shape_data[n] <= 0) in reshape_c10()
93 shape_data[n] = 0; in reshape_c10()
105 rex = shape_data[n]; in reshape_c10()
163 rs *= shape_data[n]; in reshape_c10()
165 if (ret_extent != shape_data[n]) in reshape_c10()
169 (long int) ret_extent, (long int) shape_data[n]); in reshape_c10()
226 if (rextent[n] != shape_data[dim]) in reshape_c10()
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/intrinsics/
H A Dreshape_generic.c66 index_type shape_data[GFC_MAX_DIMENSIONS]; in reshape_internal() local
80 shape_data[n] = shape->base_addr[n * GFC_DESCRIPTOR_STRIDE(shape,0)]; in reshape_internal()
81 if (shape_data[n] <= 0) in reshape_internal()
83 shape_data[n] = 0; in reshape_internal()
95 rex = shape_data[n]; in reshape_internal()
153 rs *= shape_data[n]; in reshape_internal()
155 if (ret_extent != shape_data[n]) in reshape_internal()
159 (long int) ret_extent, (long int) shape_data[n]); in reshape_internal()
217 if (rextent[n] != shape_data[dim]) in reshape_internal()

12