re PR fortran/49479 (reshape / optionals / zero sized arrays)
2011-09-10 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/49479 * generated/m4/ifunction.m4: Always call internal_malloc_size even when there is a zero-sized return array. * generated/generated/maxloc1_16_i16.c: Regenerated. * generated/generated/maxloc1_16_i1.c: Regenerated. * generated/generated/maxloc1_16_i2.c: Regenerated. * generated/generated/maxloc1_16_i4.c: Regenerated. * generated/generated/maxloc1_16_i8.c: Regenerated. * generated/generated/maxloc1_16_r10.c: Regenerated. * generated/generated/maxloc1_16_r16.c: Regenerated. * generated/generated/maxloc1_16_r4.c: Regenerated. * generated/generated/maxloc1_16_r8.c: Regenerated. * generated/generated/maxloc1_4_i16.c: Regenerated. * generated/generated/maxloc1_4_i1.c: Regenerated. * generated/generated/maxloc1_4_i2.c: Regenerated. * generated/generated/maxloc1_4_i4.c: Regenerated. * generated/generated/maxloc1_4_i8.c: Regenerated. * generated/generated/maxloc1_4_r10.c: Regenerated. * generated/generated/maxloc1_4_r16.c: Regenerated. * generated/generated/maxloc1_4_r4.c: Regenerated. * generated/generated/maxloc1_4_r8.c: Regenerated. * generated/generated/maxloc1_8_i16.c: Regenerated. * generated/generated/maxloc1_8_i1.c: Regenerated. * generated/generated/maxloc1_8_i2.c: Regenerated. * generated/generated/maxloc1_8_i4.c: Regenerated. * generated/generated/maxloc1_8_i8.c: Regenerated. * generated/generated/maxloc1_8_r10.c: Regenerated. * generated/generated/maxloc1_8_r16.c: Regenerated. * generated/generated/maxloc1_8_r4.c: Regenerated. * generated/generated/maxloc1_8_r8.c: Regenerated. * generated/generated/maxval_i16.c: Regenerated. * generated/generated/maxval_i1.c: Regenerated. * generated/generated/maxval_i2.c: Regenerated. * generated/generated/maxval_i4.c: Regenerated. * generated/generated/maxval_i8.c: Regenerated. * generated/generated/maxval_r10.c: Regenerated. * generated/generated/maxval_r16.c: Regenerated. * generated/generated/maxval_r4.c: Regenerated. * generated/generated/maxval_r8.c: Regenerated. * generated/generated/minloc1_16_i16.c: Regenerated. * generated/generated/minloc1_16_i1.c: Regenerated. * generated/generated/minloc1_16_i2.c: Regenerated. * generated/generated/minloc1_16_i4.c: Regenerated. * generated/generated/minloc1_16_i8.c: Regenerated. * generated/generated/minloc1_16_r10.c: Regenerated. * generated/generated/minloc1_16_r16.c: Regenerated. * generated/generated/minloc1_16_r4.c: Regenerated. * generated/generated/minloc1_16_r8.c: Regenerated. * generated/generated/minloc1_4_i16.c: Regenerated. * generated/generated/minloc1_4_i1.c: Regenerated. * generated/generated/minloc1_4_i2.c: Regenerated. * generated/generated/minloc1_4_i4.c: Regenerated. * generated/generated/minloc1_4_i8.c: Regenerated. * generated/generated/minloc1_4_r10.c: Regenerated. * generated/generated/minloc1_4_r16.c: Regenerated. * generated/generated/minloc1_4_r4.c: Regenerated. * generated/generated/minloc1_4_r8.c: Regenerated. * generated/generated/minloc1_8_i16.c: Regenerated. * generated/generated/minloc1_8_i1.c: Regenerated. * generated/generated/minloc1_8_i2.c: Regenerated. * generated/generated/minloc1_8_i4.c: Regenerated. * generated/generated/minloc1_8_i8.c: Regenerated. * generated/generated/minloc1_8_r10.c: Regenerated. * generated/generated/minloc1_8_r16.c: Regenerated. * generated/generated/minloc1_8_r4.c: Regenerated. * generated/generated/minloc1_8_r8.c: Regenerated. * generated/generated/minval_i16.c: Regenerated. * generated/generated/minval_i1.c: Regenerated. * generated/generated/minval_i2.c: Regenerated. * generated/generated/minval_i4.c: Regenerated. * generated/generated/minval_i8.c: Regenerated. * generated/generated/minval_r10.c: Regenerated. * generated/generated/minval_r16.c: Regenerated. * generated/generated/minval_r4.c: Regenerated. * generated/generated/minval_r8.c: Regenerated. * generated/generated/product_c10.c: Regenerated. * generated/generated/product_c16.c: Regenerated. * generated/generated/product_c4.c: Regenerated. * generated/generated/product_c8.c: Regenerated. * generated/generated/product_i16.c: Regenerated. * generated/generated/product_i1.c: Regenerated. * generated/generated/product_i2.c: Regenerated. * generated/generated/product_i4.c: Regenerated. * generated/generated/product_i8.c: Regenerated. * generated/generated/product_r10.c: Regenerated. * generated/generated/product_r16.c: Regenerated. * generated/generated/product_r4.c: Regenerated. * generated/generated/product_r8.c: Regenerated. * generated/generated/sum_c10.c: Regenerated. * generated/generated/sum_c16.c: Regenerated. * generated/generated/sum_c4.c: Regenerated. * generated/generated/sum_c8.c: Regenerated. * generated/generated/sum_i16.c: Regenerated. * generated/generated/sum_i1.c: Regenerated. * generated/generated/sum_i2.c: Regenerated. * generated/generated/sum_i4.c: Regenerated. * generated/generated/sum_i8.c: Regenerated. * generated/generated/sum_r10.c: Regenerated. * generated/generated/sum_r16.c: Regenerated. * generated/generated/sum_r4.c: Regenerated. * generated/generated/sum_r8.c: Regenerated. From-SVN: r178748
This commit is contained in:
Thomas Koenig
parent
93d83339d5
commit
95928a1322
@ -1,3 +1,107 @@
|
||||
2011-09-10 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||
|
||||
PR fortran/49479
|
||||
* generated/m4/ifunction.m4: Always call internal_malloc_size
|
||||
even when there is a zero-sized return array.
|
||||
* generated/generated/maxloc1_16_i16.c: Regenerated.
|
||||
* generated/generated/maxloc1_16_i1.c: Regenerated.
|
||||
* generated/generated/maxloc1_16_i2.c: Regenerated.
|
||||
* generated/generated/maxloc1_16_i4.c: Regenerated.
|
||||
* generated/generated/maxloc1_16_i8.c: Regenerated.
|
||||
* generated/generated/maxloc1_16_r10.c: Regenerated.
|
||||
* generated/generated/maxloc1_16_r16.c: Regenerated.
|
||||
* generated/generated/maxloc1_16_r4.c: Regenerated.
|
||||
* generated/generated/maxloc1_16_r8.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_i16.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_i1.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_i2.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_i4.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_i8.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_r10.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_r16.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_r4.c: Regenerated.
|
||||
* generated/generated/maxloc1_4_r8.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_i16.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_i1.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_i2.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_i4.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_i8.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_r10.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_r16.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_r4.c: Regenerated.
|
||||
* generated/generated/maxloc1_8_r8.c: Regenerated.
|
||||
* generated/generated/maxval_i16.c: Regenerated.
|
||||
* generated/generated/maxval_i1.c: Regenerated.
|
||||
* generated/generated/maxval_i2.c: Regenerated.
|
||||
* generated/generated/maxval_i4.c: Regenerated.
|
||||
* generated/generated/maxval_i8.c: Regenerated.
|
||||
* generated/generated/maxval_r10.c: Regenerated.
|
||||
* generated/generated/maxval_r16.c: Regenerated.
|
||||
* generated/generated/maxval_r4.c: Regenerated.
|
||||
* generated/generated/maxval_r8.c: Regenerated.
|
||||
* generated/generated/minloc1_16_i16.c: Regenerated.
|
||||
* generated/generated/minloc1_16_i1.c: Regenerated.
|
||||
* generated/generated/minloc1_16_i2.c: Regenerated.
|
||||
* generated/generated/minloc1_16_i4.c: Regenerated.
|
||||
* generated/generated/minloc1_16_i8.c: Regenerated.
|
||||
* generated/generated/minloc1_16_r10.c: Regenerated.
|
||||
* generated/generated/minloc1_16_r16.c: Regenerated.
|
||||
* generated/generated/minloc1_16_r4.c: Regenerated.
|
||||
* generated/generated/minloc1_16_r8.c: Regenerated.
|
||||
* generated/generated/minloc1_4_i16.c: Regenerated.
|
||||
* generated/generated/minloc1_4_i1.c: Regenerated.
|
||||
* generated/generated/minloc1_4_i2.c: Regenerated.
|
||||
* generated/generated/minloc1_4_i4.c: Regenerated.
|
||||
* generated/generated/minloc1_4_i8.c: Regenerated.
|
||||
* generated/generated/minloc1_4_r10.c: Regenerated.
|
||||
* generated/generated/minloc1_4_r16.c: Regenerated.
|
||||
* generated/generated/minloc1_4_r4.c: Regenerated.
|
||||
* generated/generated/minloc1_4_r8.c: Regenerated.
|
||||
* generated/generated/minloc1_8_i16.c: Regenerated.
|
||||
* generated/generated/minloc1_8_i1.c: Regenerated.
|
||||
* generated/generated/minloc1_8_i2.c: Regenerated.
|
||||
* generated/generated/minloc1_8_i4.c: Regenerated.
|
||||
* generated/generated/minloc1_8_i8.c: Regenerated.
|
||||
* generated/generated/minloc1_8_r10.c: Regenerated.
|
||||
* generated/generated/minloc1_8_r16.c: Regenerated.
|
||||
* generated/generated/minloc1_8_r4.c: Regenerated.
|
||||
* generated/generated/minloc1_8_r8.c: Regenerated.
|
||||
* generated/generated/minval_i16.c: Regenerated.
|
||||
* generated/generated/minval_i1.c: Regenerated.
|
||||
* generated/generated/minval_i2.c: Regenerated.
|
||||
* generated/generated/minval_i4.c: Regenerated.
|
||||
* generated/generated/minval_i8.c: Regenerated.
|
||||
* generated/generated/minval_r10.c: Regenerated.
|
||||
* generated/generated/minval_r16.c: Regenerated.
|
||||
* generated/generated/minval_r4.c: Regenerated.
|
||||
* generated/generated/minval_r8.c: Regenerated.
|
||||
* generated/generated/product_c10.c: Regenerated.
|
||||
* generated/generated/product_c16.c: Regenerated.
|
||||
* generated/generated/product_c4.c: Regenerated.
|
||||
* generated/generated/product_c8.c: Regenerated.
|
||||
* generated/generated/product_i16.c: Regenerated.
|
||||
* generated/generated/product_i1.c: Regenerated.
|
||||
* generated/generated/product_i2.c: Regenerated.
|
||||
* generated/generated/product_i4.c: Regenerated.
|
||||
* generated/generated/product_i8.c: Regenerated.
|
||||
* generated/generated/product_r10.c: Regenerated.
|
||||
* generated/generated/product_r16.c: Regenerated.
|
||||
* generated/generated/product_r4.c: Regenerated.
|
||||
* generated/generated/product_r8.c: Regenerated.
|
||||
* generated/generated/sum_c10.c: Regenerated.
|
||||
* generated/generated/sum_c16.c: Regenerated.
|
||||
* generated/generated/sum_c4.c: Regenerated.
|
||||
* generated/generated/sum_c8.c: Regenerated.
|
||||
* generated/generated/sum_i16.c: Regenerated.
|
||||
* generated/generated/sum_i1.c: Regenerated.
|
||||
* generated/generated/sum_i2.c: Regenerated.
|
||||
* generated/generated/sum_i4.c: Regenerated.
|
||||
* generated/generated/sum_i8.c: Regenerated.
|
||||
* generated/generated/sum_r10.c: Regenerated.
|
||||
* generated/generated/sum_r16.c: Regenerated.
|
||||
* generated/generated/sum_r4.c: Regenerated.
|
||||
* generated/generated/sum_r8.c: Regenerated.
|
||||
|
||||
2011-09-01 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||
|
||||
* generated/bessel_r4.c: Regenerated.
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_1) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_2) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -101,6 +101,7 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -108,8 +109,6 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_1) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_2) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_c10 (gfc_array_c10 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_COMPLEX_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_c10 (gfc_array_c10 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_c16 (gfc_array_c16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_COMPLEX_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_c16 (gfc_array_c16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_c4 (gfc_array_c4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_COMPLEX_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_c4 (gfc_array_c4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_c8 (gfc_array_c8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_COMPLEX_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_c8 (gfc_array_c8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_i1 (gfc_array_i1 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_1) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_i1 (gfc_array_i1 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_i16 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_i16 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_i2 (gfc_array_i2 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_2) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_i2 (gfc_array_i2 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_i4 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_i4 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_i8 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_i8 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_r10 (gfc_array_r10 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_r10 (gfc_array_r10 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_r16 (gfc_array_r16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_r16 (gfc_array_r16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_r4 (gfc_array_r4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_r4 (gfc_array_r4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ product_r8 (gfc_array_r8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ product_r8 (gfc_array_r8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_c10 (gfc_array_c10 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_COMPLEX_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_c10 (gfc_array_c10 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_c16 (gfc_array_c16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_COMPLEX_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_c16 (gfc_array_c16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_c4 (gfc_array_c4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_COMPLEX_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_c4 (gfc_array_c4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_c8 (gfc_array_c8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_COMPLEX_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_c8 (gfc_array_c8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_i1 (gfc_array_i1 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_1) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_i1 (gfc_array_i1 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_i16 (gfc_array_i16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_i16 (gfc_array_i16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_i2 (gfc_array_i2 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_2) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_i2 (gfc_array_i2 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_i4 (gfc_array_i4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_i4 (gfc_array_i4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_i8 (gfc_array_i8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_INTEGER_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_i8 (gfc_array_i8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_r10 (gfc_array_r10 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_10) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_r10 (gfc_array_r10 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_r16 (gfc_array_r16 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_16) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_r16 (gfc_array_r16 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_r4 (gfc_array_r4 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_r4 (gfc_array_r4 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -100,6 +100,7 @@ sum_r8 (gfc_array_r8 * const restrict retarray,
|
||||
alloc_size = sizeof (GFC_REAL_8) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -107,8 +108,6 @@ sum_r8 (gfc_array_r8 * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@ -88,6 +88,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
|
||||
alloc_size = sizeof (rtype_name) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
|
||||
* extent[rank-1];
|
||||
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
@ -95,8 +96,6 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
|
||||
return;
|
||||
|
||||
}
|
||||
else
|
||||
retarray->data = internal_malloc_size (alloc_size);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
Loading…
Reference in New Issue
Block a user