| /netbsd-src/external/gpl3/gcc.old/dist/libgfortran/generated/ |
| H A D | findloc1_r4.c | 30 extern void findloc1_r4 (gfc_array_index_type * const restrict retarray,
36 findloc1_r4 (gfc_array_index_type * const restrict retarray, in findloc1_r4() argument
86 if (retarray->base_addr == NULL) in findloc1_r4()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_r4()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_r4()
101 retarray->offset = 0; in findloc1_r4()
102 retarray->dtype.rank = rank; in findloc1_r4()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_r4()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_r4()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_r4()
[all …]
|
| H A D | findloc1_r10.c | 30 extern void findloc1_r10 (gfc_array_index_type * const restrict retarray,
36 findloc1_r10 (gfc_array_index_type * const restrict retarray, in findloc1_r10() argument
86 if (retarray->base_addr == NULL) in findloc1_r10()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_r10()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_r10()
101 retarray->offset = 0; in findloc1_r10()
102 retarray->dtype.rank = rank; in findloc1_r10()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_r10()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_r10()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_r10()
[all …]
|
| H A D | findloc1_c4.c | 30 extern void findloc1_c4 (gfc_array_index_type * const restrict retarray,
36 findloc1_c4 (gfc_array_index_type * const restrict retarray, in findloc1_c4() argument
86 if (retarray->base_addr == NULL) in findloc1_c4()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c4()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c4()
101 retarray->offset = 0; in findloc1_c4()
102 retarray->dtype.rank = rank; in findloc1_c4()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c4()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c4()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c4()
[all …]
|
| H A D | findloc1_c10.c | 30 extern void findloc1_c10 (gfc_array_index_type * const restrict retarray,
36 findloc1_c10 (gfc_array_index_type * const restrict retarray, in findloc1_c10() argument
86 if (retarray->base_addr == NULL) in findloc1_c10()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c10()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c10()
101 retarray->offset = 0; in findloc1_c10()
102 retarray->dtype.rank = rank; in findloc1_c10()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c10()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c10()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c10()
[all …]
|
| H A D | findloc1_i1.c | 30 extern void findloc1_i1 (gfc_array_index_type * const restrict retarray,
36 findloc1_i1 (gfc_array_index_type * const restrict retarray, in findloc1_i1() argument
86 if (retarray->base_addr == NULL) in findloc1_i1()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_i1()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_i1()
101 retarray->offset = 0; in findloc1_i1()
102 retarray->dtype.rank = rank; in findloc1_i1()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_i1()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_i1()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_i1()
[all …]
|
| H A D | findloc1_c16.c | 30 extern void findloc1_c16 (gfc_array_index_type * const restrict retarray,
36 findloc1_c16 (gfc_array_index_type * const restrict retarray, in findloc1_c16() argument
86 if (retarray->base_addr == NULL) in findloc1_c16()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c16()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c16()
101 retarray->offset = 0; in findloc1_c16()
102 retarray->dtype.rank = rank; in findloc1_c16()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c16()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c16()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c16()
[all …]
|
| H A D | findloc1_r8.c | 30 extern void findloc1_r8 (gfc_array_index_type * const restrict retarray,
36 findloc1_r8 (gfc_array_index_type * const restrict retarray, in findloc1_r8() argument
86 if (retarray->base_addr == NULL) in findloc1_r8()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_r8()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_r8()
101 retarray->offset = 0; in findloc1_r8()
102 retarray->dtype.rank = rank; in findloc1_r8()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_r8()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_r8()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_r8()
[all …]
|
| H A D | findloc1_i2.c | 30 extern void findloc1_i2 (gfc_array_index_type * const restrict retarray,
36 findloc1_i2 (gfc_array_index_type * const restrict retarray, in findloc1_i2() argument
86 if (retarray->base_addr == NULL) in findloc1_i2()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_i2()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_i2()
101 retarray->offset = 0; in findloc1_i2()
102 retarray->dtype.rank = rank; in findloc1_i2()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_i2()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_i2()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_i2()
[all …]
|
| H A D | findloc1_r16.c | 30 extern void findloc1_r16 (gfc_array_index_type * const restrict retarray,
36 findloc1_r16 (gfc_array_index_type * const restrict retarray, in findloc1_r16() argument
86 if (retarray->base_addr == NULL) in findloc1_r16()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_r16()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_r16()
101 retarray->offset = 0; in findloc1_r16()
102 retarray->dtype.rank = rank; in findloc1_r16()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_r16()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_r16()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_r16()
[all …]
|
| H A D | findloc1_i4.c | 30 extern void findloc1_i4 (gfc_array_index_type * const restrict retarray,
36 findloc1_i4 (gfc_array_index_type * const restrict retarray, in findloc1_i4() argument
86 if (retarray->base_addr == NULL) in findloc1_i4()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_i4()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_i4()
101 retarray->offset = 0; in findloc1_i4()
102 retarray->dtype.rank = rank; in findloc1_i4()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_i4()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_i4()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_i4()
[all …]
|
| H A D | findloc1_i8.c | 30 extern void findloc1_i8 (gfc_array_index_type * const restrict retarray,
36 findloc1_i8 (gfc_array_index_type * const restrict retarray, in findloc1_i8() argument
86 if (retarray->base_addr == NULL) in findloc1_i8()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_i8()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_i8()
101 retarray->offset = 0; in findloc1_i8()
102 retarray->dtype.rank = rank; in findloc1_i8()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_i8()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_i8()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_i8()
[all …]
|
| H A D | findloc1_c8.c | 30 extern void findloc1_c8 (gfc_array_index_type * const restrict retarray,
36 findloc1_c8 (gfc_array_index_type * const restrict retarray, in findloc1_c8() argument
86 if (retarray->base_addr == NULL) in findloc1_c8()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c8()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c8()
101 retarray->offset = 0; in findloc1_c8()
102 retarray->dtype.rank = rank; in findloc1_c8()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c8()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c8()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c8()
[all …]
|
| /netbsd-src/external/gpl3/gcc/dist/libgfortran/generated/ |
| H A D | findloc1_i8.c | 30 extern void findloc1_i8 (gfc_array_index_type * const restrict retarray,
36 findloc1_i8 (gfc_array_index_type * const restrict retarray, in findloc1_i8() argument
86 if (retarray->base_addr == NULL) in findloc1_i8()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_i8()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_i8()
101 retarray->offset = 0; in findloc1_i8()
102 retarray->dtype.rank = rank; in findloc1_i8()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_i8()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_i8()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_i8()
[all …]
|
| H A D | findloc1_c4.c | 30 extern void findloc1_c4 (gfc_array_index_type * const restrict retarray,
36 findloc1_c4 (gfc_array_index_type * const restrict retarray, in findloc1_c4() argument
86 if (retarray->base_addr == NULL) in findloc1_c4()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c4()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c4()
101 retarray->offset = 0; in findloc1_c4()
102 retarray->dtype.rank = rank; in findloc1_c4()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c4()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c4()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c4()
[all …]
|
| H A D | findloc1_i4.c | 30 extern void findloc1_i4 (gfc_array_index_type * const restrict retarray,
36 findloc1_i4 (gfc_array_index_type * const restrict retarray, in findloc1_i4() argument
86 if (retarray->base_addr == NULL) in findloc1_i4()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_i4()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_i4()
101 retarray->offset = 0; in findloc1_i4()
102 retarray->dtype.rank = rank; in findloc1_i4()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_i4()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_i4()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_i4()
[all …]
|
| H A D | findloc1_r16.c | 30 extern void findloc1_r16 (gfc_array_index_type * const restrict retarray,
36 findloc1_r16 (gfc_array_index_type * const restrict retarray, in findloc1_r16() argument
86 if (retarray->base_addr == NULL) in findloc1_r16()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_r16()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_r16()
101 retarray->offset = 0; in findloc1_r16()
102 retarray->dtype.rank = rank; in findloc1_r16()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_r16()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_r16()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_r16()
[all …]
|
| H A D | findloc1_c16.c | 30 extern void findloc1_c16 (gfc_array_index_type * const restrict retarray,
36 findloc1_c16 (gfc_array_index_type * const restrict retarray, in findloc1_c16() argument
86 if (retarray->base_addr == NULL) in findloc1_c16()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c16()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c16()
101 retarray->offset = 0; in findloc1_c16()
102 retarray->dtype.rank = rank; in findloc1_c16()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c16()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c16()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c16()
[all …]
|
| H A D | findloc1_c10.c | 30 extern void findloc1_c10 (gfc_array_index_type * const restrict retarray,
36 findloc1_c10 (gfc_array_index_type * const restrict retarray, in findloc1_c10() argument
86 if (retarray->base_addr == NULL) in findloc1_c10()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c10()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c10()
101 retarray->offset = 0; in findloc1_c10()
102 retarray->dtype.rank = rank; in findloc1_c10()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c10()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c10()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c10()
[all …]
|
| H A D | findloc1_i2.c | 30 extern void findloc1_i2 (gfc_array_index_type * const restrict retarray,
36 findloc1_i2 (gfc_array_index_type * const restrict retarray, in findloc1_i2() argument
86 if (retarray->base_addr == NULL) in findloc1_i2()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_i2()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_i2()
101 retarray->offset = 0; in findloc1_i2()
102 retarray->dtype.rank = rank; in findloc1_i2()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_i2()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_i2()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_i2()
[all …]
|
| H A D | findloc1_c8.c | 30 extern void findloc1_c8 (gfc_array_index_type * const restrict retarray,
36 findloc1_c8 (gfc_array_index_type * const restrict retarray, in findloc1_c8() argument
86 if (retarray->base_addr == NULL) in findloc1_c8()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c8()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c8()
101 retarray->offset = 0; in findloc1_c8()
102 retarray->dtype.rank = rank; in findloc1_c8()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c8()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c8()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c8()
[all …]
|
| H A D | findloc1_c17.c | 30 extern void findloc1_c17 (gfc_array_index_type * const restrict retarray,
36 findloc1_c17 (gfc_array_index_type * const restrict retarray, in findloc1_c17() argument
86 if (retarray->base_addr == NULL) in findloc1_c17()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_c17()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_c17()
101 retarray->offset = 0; in findloc1_c17()
102 retarray->dtype.rank = rank; in findloc1_c17()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_c17()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_c17()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_c17()
[all …]
|
| H A D | findloc1_r4.c | 30 extern void findloc1_r4 (gfc_array_index_type * const restrict retarray,
36 findloc1_r4 (gfc_array_index_type * const restrict retarray, in findloc1_r4() argument
86 if (retarray->base_addr == NULL) in findloc1_r4()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_r4()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_r4()
101 retarray->offset = 0; in findloc1_r4()
102 retarray->dtype.rank = rank; in findloc1_r4()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_r4()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_r4()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_r4()
[all …]
|
| H A D | findloc1_r17.c | 30 extern void findloc1_r17 (gfc_array_index_type * const restrict retarray,
36 findloc1_r17 (gfc_array_index_type * const restrict retarray, in findloc1_r17() argument
86 if (retarray->base_addr == NULL) in findloc1_r17()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_r17()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_r17()
101 retarray->offset = 0; in findloc1_r17()
102 retarray->dtype.rank = rank; in findloc1_r17()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_r17()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_r17()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_r17()
[all …]
|
| H A D | findloc1_r10.c | 30 extern void findloc1_r10 (gfc_array_index_type * const restrict retarray,
36 findloc1_r10 (gfc_array_index_type * const restrict retarray, in findloc1_r10() argument
86 if (retarray->base_addr == NULL) in findloc1_r10()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_r10()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_r10()
101 retarray->offset = 0; in findloc1_r10()
102 retarray->dtype.rank = rank; in findloc1_r10()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_r10()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_r10()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_r10()
[all …]
|
| H A D | findloc1_i16.c | 30 extern void findloc1_i16 (gfc_array_index_type * const restrict retarray,
36 findloc1_i16 (gfc_array_index_type * const restrict retarray, in findloc1_i16() argument
86 if (retarray->base_addr == NULL) in findloc1_i16()
95 str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; in findloc1_i16()
97 GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); in findloc1_i16()
101 retarray->offset = 0; in findloc1_i16()
102 retarray->dtype.rank = rank; in findloc1_i16()
104 alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; in findloc1_i16()
106 retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); in findloc1_i16()
110 GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); in findloc1_i16()
[all …]
|