mirror of
https://gcc.gnu.org/git/gcc.git
synced 2024-11-23 19:03:59 +08:00
re PR libfortran/34746 (wrong formats in libgfortran's runtime_error)
2008-01-13 Thomas Koenig <tkoenig@gcc.gnu.org> PR libfortran/34746 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Use %ld in printf format for all bounds checking; cast all integer-like arguments to runtime_error() to long int. (`m'name`'rtype_qual`_'atype_code): Likewise. (`s'name`'rtype_qual`_'atype_code): Likewise. * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise. (`m'name`'rtype_qual`_'atype_code): Likewise. (`s'name`'rtype_qual`_'atype_code): Likewise. * generated/all_l16.c: Regenerated. * generated/all_l4.c: Regenerated. * generated/all_l8.c: Regenerated. * generated/any_l16.c: Regenerated. * generated/any_l4.c: Regenerated. * generated/any_l8.c: Regenerated. * generated/count_16_l16.c: Regenerated. * generated/count_16_l4.c: Regenerated. * generated/count_16_l8.c: Regenerated. * generated/count_4_l16.c: Regenerated. * generated/count_4_l4.c: Regenerated. * generated/count_4_l8.c: Regenerated. * generated/count_8_l16.c: Regenerated. * generated/count_8_l4.c: Regenerated. * generated/count_8_l8.c: Regenerated. * generated/maxloc0_16_i1.c: Regenerated. * generated/maxloc0_16_i16.c: Regenerated. * generated/maxloc0_16_i2.c: Regenerated. * generated/maxloc0_16_i4.c: Regenerated. * generated/maxloc0_16_i8.c: Regenerated. * generated/maxloc0_16_r10.c: Regenerated. * generated/maxloc0_16_r16.c: Regenerated. * generated/maxloc0_16_r4.c: Regenerated. * generated/maxloc0_16_r8.c: Regenerated. * generated/maxloc0_4_i1.c: Regenerated. * generated/maxloc0_4_i16.c: Regenerated. * generated/maxloc0_4_i2.c: Regenerated. * generated/maxloc0_4_i4.c: Regenerated. * generated/maxloc0_4_i8.c: Regenerated. * generated/maxloc0_4_r10.c: Regenerated. * generated/maxloc0_4_r16.c: Regenerated. * generated/maxloc0_4_r4.c: Regenerated. * generated/maxloc0_4_r8.c: Regenerated. * generated/maxloc0_8_i1.c: Regenerated. * generated/maxloc0_8_i16.c: Regenerated. * generated/maxloc0_8_i2.c: Regenerated. * generated/maxloc0_8_i4.c: Regenerated. * generated/maxloc0_8_i8.c: Regenerated. * generated/maxloc0_8_r10.c: Regenerated. * generated/maxloc0_8_r16.c: Regenerated. * generated/maxloc0_8_r4.c: Regenerated. * generated/maxloc0_8_r8.c: Regenerated. * generated/maxloc1_16_i1.c: Regenerated. * generated/maxloc1_16_i16.c: Regenerated. * generated/maxloc1_16_i2.c: Regenerated. * generated/maxloc1_16_i4.c: Regenerated. * generated/maxloc1_16_i8.c: Regenerated. * generated/maxloc1_16_r10.c: Regenerated. * generated/maxloc1_16_r16.c: Regenerated. * generated/maxloc1_16_r4.c: Regenerated. * generated/maxloc1_16_r8.c: Regenerated. * generated/maxloc1_4_i1.c: Regenerated. * generated/maxloc1_4_i16.c: Regenerated. * generated/maxloc1_4_i2.c: Regenerated. * generated/maxloc1_4_i4.c: Regenerated. * generated/maxloc1_4_i8.c: Regenerated. * generated/maxloc1_4_r10.c: Regenerated. * generated/maxloc1_4_r16.c: Regenerated. * generated/maxloc1_4_r4.c: Regenerated. * generated/maxloc1_4_r8.c: Regenerated. * generated/maxloc1_8_i1.c: Regenerated. * generated/maxloc1_8_i16.c: Regenerated. * generated/maxloc1_8_i2.c: Regenerated. * generated/maxloc1_8_i4.c: Regenerated. * generated/maxloc1_8_i8.c: Regenerated. * generated/maxloc1_8_r10.c: Regenerated. * generated/maxloc1_8_r16.c: Regenerated. * generated/maxloc1_8_r4.c: Regenerated. * generated/maxloc1_8_r8.c: Regenerated. * generated/maxval_i1.c: Regenerated. * generated/maxval_i16.c: Regenerated. * generated/maxval_i2.c: Regenerated. * generated/maxval_i4.c: Regenerated. * generated/maxval_i8.c: Regenerated. * generated/maxval_r10.c: Regenerated. * generated/maxval_r16.c: Regenerated. * generated/maxval_r4.c: Regenerated. * generated/maxval_r8.c: Regenerated. * generated/minloc0_16_i1.c: Regenerated. * generated/minloc0_16_i16.c: Regenerated. * generated/minloc0_16_i2.c: Regenerated. * generated/minloc0_16_i4.c: Regenerated. * generated/minloc0_16_i8.c: Regenerated. * generated/minloc0_16_r10.c: Regenerated. * generated/minloc0_16_r16.c: Regenerated. * generated/minloc0_16_r4.c: Regenerated. * generated/minloc0_16_r8.c: Regenerated. * generated/minloc0_4_i1.c: Regenerated. * generated/minloc0_4_i16.c: Regenerated. * generated/minloc0_4_i2.c: Regenerated. * generated/minloc0_4_i4.c: Regenerated. * generated/minloc0_4_i8.c: Regenerated. * generated/minloc0_4_r10.c: Regenerated. * generated/minloc0_4_r16.c: Regenerated. * generated/minloc0_4_r4.c: Regenerated. * generated/minloc0_4_r8.c: Regenerated. * generated/minloc0_8_i1.c: Regenerated. * generated/minloc0_8_i16.c: Regenerated. * generated/minloc0_8_i2.c: Regenerated. * generated/minloc0_8_i4.c: Regenerated. * generated/minloc0_8_i8.c: Regenerated. * generated/minloc0_8_r10.c: Regenerated. * generated/minloc0_8_r16.c: Regenerated. * generated/minloc0_8_r4.c: Regenerated. * generated/minloc0_8_r8.c: Regenerated. * generated/minloc1_16_i1.c: Regenerated. * generated/minloc1_16_i16.c: Regenerated. * generated/minloc1_16_i2.c: Regenerated. * generated/minloc1_16_i4.c: Regenerated. * generated/minloc1_16_i8.c: Regenerated. * generated/minloc1_16_r10.c: Regenerated. * generated/minloc1_16_r16.c: Regenerated. * generated/minloc1_16_r4.c: Regenerated. * generated/minloc1_16_r8.c: Regenerated. * generated/minloc1_4_i1.c: Regenerated. * generated/minloc1_4_i16.c: Regenerated. * generated/minloc1_4_i2.c: Regenerated. * generated/minloc1_4_i4.c: Regenerated. * generated/minloc1_4_i8.c: Regenerated. * generated/minloc1_4_r10.c: Regenerated. * generated/minloc1_4_r16.c: Regenerated. * generated/minloc1_4_r4.c: Regenerated. * generated/minloc1_4_r8.c: Regenerated. * generated/minloc1_8_i1.c: Regenerated. * generated/minloc1_8_i16.c: Regenerated. * generated/minloc1_8_i2.c: Regenerated. * generated/minloc1_8_i4.c: Regenerated. * generated/minloc1_8_i8.c: Regenerated. * generated/minloc1_8_r10.c: Regenerated. * generated/minloc1_8_r16.c: Regenerated. * generated/minloc1_8_r4.c: Regenerated. * generated/minloc1_8_r8.c: Regenerated. * generated/minval_i1.c: Regenerated. * generated/minval_i16.c: Regenerated. * generated/minval_i2.c: Regenerated. * generated/minval_i4.c: Regenerated. * generated/minval_i8.c: Regenerated. * generated/minval_r10.c: Regenerated. * generated/minval_r16.c: Regenerated. * generated/minval_r4.c: Regenerated. * generated/minval_r8.c: Regenerated. * generated/product_c10.c: Regenerated. * generated/product_c16.c: Regenerated. * generated/product_c4.c: Regenerated. * generated/product_c8.c: Regenerated. * generated/product_i1.c: Regenerated. * generated/product_i16.c: Regenerated. * generated/product_i2.c: Regenerated. * generated/product_i4.c: Regenerated. * generated/product_i8.c: Regenerated. * generated/product_r10.c: Regenerated. * generated/product_r16.c: Regenerated. * generated/product_r4.c: Regenerated. * generated/product_r8.c: Regenerated. * generated/sum_c10.c: Regenerated. * generated/sum_c16.c: Regenerated. * generated/sum_c4.c: Regenerated. * generated/sum_c8.c: Regenerated. * generated/sum_i1.c: Regenerated. * generated/sum_i16.c: Regenerated. * generated/sum_i2.c: Regenerated. * generated/sum_i4.c: Regenerated. * generated/sum_i8.c: Regenerated. * generated/sum_r10.c: Regenerated. * generated/sum_r16.c: Regenerated. * generated/sum_r4.c: Regenerated. * generated/sum_r8.c: Regenerated. From-SVN: r131514
This commit is contained in:
Thomas Koenig
parent
5ad6345e92
commit
ccacefc7a6
@ -1,3 +1,182 @@
|
||||
2008-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||
|
||||
PR libfortran/34746
|
||||
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Use %ld
|
||||
in printf format for all bounds checking; cast all
|
||||
integer-like arguments to runtime_error() to long int.
|
||||
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
||||
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
||||
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
||||
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
||||
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
||||
* generated/all_l16.c: Regenerated.
|
||||
* generated/all_l4.c: Regenerated.
|
||||
* generated/all_l8.c: Regenerated.
|
||||
* generated/any_l16.c: Regenerated.
|
||||
* generated/any_l4.c: Regenerated.
|
||||
* generated/any_l8.c: Regenerated.
|
||||
* generated/count_16_l16.c: Regenerated.
|
||||
* generated/count_16_l4.c: Regenerated.
|
||||
* generated/count_16_l8.c: Regenerated.
|
||||
* generated/count_4_l16.c: Regenerated.
|
||||
* generated/count_4_l4.c: Regenerated.
|
||||
* generated/count_4_l8.c: Regenerated.
|
||||
* generated/count_8_l16.c: Regenerated.
|
||||
* generated/count_8_l4.c: Regenerated.
|
||||
* generated/count_8_l8.c: Regenerated.
|
||||
* generated/maxloc0_16_i1.c: Regenerated.
|
||||
* generated/maxloc0_16_i16.c: Regenerated.
|
||||
* generated/maxloc0_16_i2.c: Regenerated.
|
||||
* generated/maxloc0_16_i4.c: Regenerated.
|
||||
* generated/maxloc0_16_i8.c: Regenerated.
|
||||
* generated/maxloc0_16_r10.c: Regenerated.
|
||||
* generated/maxloc0_16_r16.c: Regenerated.
|
||||
* generated/maxloc0_16_r4.c: Regenerated.
|
||||
* generated/maxloc0_16_r8.c: Regenerated.
|
||||
* generated/maxloc0_4_i1.c: Regenerated.
|
||||
* generated/maxloc0_4_i16.c: Regenerated.
|
||||
* generated/maxloc0_4_i2.c: Regenerated.
|
||||
* generated/maxloc0_4_i4.c: Regenerated.
|
||||
* generated/maxloc0_4_i8.c: Regenerated.
|
||||
* generated/maxloc0_4_r10.c: Regenerated.
|
||||
* generated/maxloc0_4_r16.c: Regenerated.
|
||||
* generated/maxloc0_4_r4.c: Regenerated.
|
||||
* generated/maxloc0_4_r8.c: Regenerated.
|
||||
* generated/maxloc0_8_i1.c: Regenerated.
|
||||
* generated/maxloc0_8_i16.c: Regenerated.
|
||||
* generated/maxloc0_8_i2.c: Regenerated.
|
||||
* generated/maxloc0_8_i4.c: Regenerated.
|
||||
* generated/maxloc0_8_i8.c: Regenerated.
|
||||
* generated/maxloc0_8_r10.c: Regenerated.
|
||||
* generated/maxloc0_8_r16.c: Regenerated.
|
||||
* generated/maxloc0_8_r4.c: Regenerated.
|
||||
* generated/maxloc0_8_r8.c: Regenerated.
|
||||
* generated/maxloc1_16_i1.c: Regenerated.
|
||||
* generated/maxloc1_16_i16.c: Regenerated.
|
||||
* generated/maxloc1_16_i2.c: Regenerated.
|
||||
* generated/maxloc1_16_i4.c: Regenerated.
|
||||
* generated/maxloc1_16_i8.c: Regenerated.
|
||||
* generated/maxloc1_16_r10.c: Regenerated.
|
||||
* generated/maxloc1_16_r16.c: Regenerated.
|
||||
* generated/maxloc1_16_r4.c: Regenerated.
|
||||
* generated/maxloc1_16_r8.c: Regenerated.
|
||||
* generated/maxloc1_4_i1.c: Regenerated.
|
||||
* generated/maxloc1_4_i16.c: Regenerated.
|
||||
* generated/maxloc1_4_i2.c: Regenerated.
|
||||
* generated/maxloc1_4_i4.c: Regenerated.
|
||||
* generated/maxloc1_4_i8.c: Regenerated.
|
||||
* generated/maxloc1_4_r10.c: Regenerated.
|
||||
* generated/maxloc1_4_r16.c: Regenerated.
|
||||
* generated/maxloc1_4_r4.c: Regenerated.
|
||||
* generated/maxloc1_4_r8.c: Regenerated.
|
||||
* generated/maxloc1_8_i1.c: Regenerated.
|
||||
* generated/maxloc1_8_i16.c: Regenerated.
|
||||
* generated/maxloc1_8_i2.c: Regenerated.
|
||||
* generated/maxloc1_8_i4.c: Regenerated.
|
||||
* generated/maxloc1_8_i8.c: Regenerated.
|
||||
* generated/maxloc1_8_r10.c: Regenerated.
|
||||
* generated/maxloc1_8_r16.c: Regenerated.
|
||||
* generated/maxloc1_8_r4.c: Regenerated.
|
||||
* generated/maxloc1_8_r8.c: Regenerated.
|
||||
* generated/maxval_i1.c: Regenerated.
|
||||
* generated/maxval_i16.c: Regenerated.
|
||||
* generated/maxval_i2.c: Regenerated.
|
||||
* generated/maxval_i4.c: Regenerated.
|
||||
* generated/maxval_i8.c: Regenerated.
|
||||
* generated/maxval_r10.c: Regenerated.
|
||||
* generated/maxval_r16.c: Regenerated.
|
||||
* generated/maxval_r4.c: Regenerated.
|
||||
* generated/maxval_r8.c: Regenerated.
|
||||
* generated/minloc0_16_i1.c: Regenerated.
|
||||
* generated/minloc0_16_i16.c: Regenerated.
|
||||
* generated/minloc0_16_i2.c: Regenerated.
|
||||
* generated/minloc0_16_i4.c: Regenerated.
|
||||
* generated/minloc0_16_i8.c: Regenerated.
|
||||
* generated/minloc0_16_r10.c: Regenerated.
|
||||
* generated/minloc0_16_r16.c: Regenerated.
|
||||
* generated/minloc0_16_r4.c: Regenerated.
|
||||
* generated/minloc0_16_r8.c: Regenerated.
|
||||
* generated/minloc0_4_i1.c: Regenerated.
|
||||
* generated/minloc0_4_i16.c: Regenerated.
|
||||
* generated/minloc0_4_i2.c: Regenerated.
|
||||
* generated/minloc0_4_i4.c: Regenerated.
|
||||
* generated/minloc0_4_i8.c: Regenerated.
|
||||
* generated/minloc0_4_r10.c: Regenerated.
|
||||
* generated/minloc0_4_r16.c: Regenerated.
|
||||
* generated/minloc0_4_r4.c: Regenerated.
|
||||
* generated/minloc0_4_r8.c: Regenerated.
|
||||
* generated/minloc0_8_i1.c: Regenerated.
|
||||
* generated/minloc0_8_i16.c: Regenerated.
|
||||
* generated/minloc0_8_i2.c: Regenerated.
|
||||
* generated/minloc0_8_i4.c: Regenerated.
|
||||
* generated/minloc0_8_i8.c: Regenerated.
|
||||
* generated/minloc0_8_r10.c: Regenerated.
|
||||
* generated/minloc0_8_r16.c: Regenerated.
|
||||
* generated/minloc0_8_r4.c: Regenerated.
|
||||
* generated/minloc0_8_r8.c: Regenerated.
|
||||
* generated/minloc1_16_i1.c: Regenerated.
|
||||
* generated/minloc1_16_i16.c: Regenerated.
|
||||
* generated/minloc1_16_i2.c: Regenerated.
|
||||
* generated/minloc1_16_i4.c: Regenerated.
|
||||
* generated/minloc1_16_i8.c: Regenerated.
|
||||
* generated/minloc1_16_r10.c: Regenerated.
|
||||
* generated/minloc1_16_r16.c: Regenerated.
|
||||
* generated/minloc1_16_r4.c: Regenerated.
|
||||
* generated/minloc1_16_r8.c: Regenerated.
|
||||
* generated/minloc1_4_i1.c: Regenerated.
|
||||
* generated/minloc1_4_i16.c: Regenerated.
|
||||
* generated/minloc1_4_i2.c: Regenerated.
|
||||
* generated/minloc1_4_i4.c: Regenerated.
|
||||
* generated/minloc1_4_i8.c: Regenerated.
|
||||
* generated/minloc1_4_r10.c: Regenerated.
|
||||
* generated/minloc1_4_r16.c: Regenerated.
|
||||
* generated/minloc1_4_r4.c: Regenerated.
|
||||
* generated/minloc1_4_r8.c: Regenerated.
|
||||
* generated/minloc1_8_i1.c: Regenerated.
|
||||
* generated/minloc1_8_i16.c: Regenerated.
|
||||
* generated/minloc1_8_i2.c: Regenerated.
|
||||
* generated/minloc1_8_i4.c: Regenerated.
|
||||
* generated/minloc1_8_i8.c: Regenerated.
|
||||
* generated/minloc1_8_r10.c: Regenerated.
|
||||
* generated/minloc1_8_r16.c: Regenerated.
|
||||
* generated/minloc1_8_r4.c: Regenerated.
|
||||
* generated/minloc1_8_r8.c: Regenerated.
|
||||
* generated/minval_i1.c: Regenerated.
|
||||
* generated/minval_i16.c: Regenerated.
|
||||
* generated/minval_i2.c: Regenerated.
|
||||
* generated/minval_i4.c: Regenerated.
|
||||
* generated/minval_i8.c: Regenerated.
|
||||
* generated/minval_r10.c: Regenerated.
|
||||
* generated/minval_r16.c: Regenerated.
|
||||
* generated/minval_r4.c: Regenerated.
|
||||
* generated/minval_r8.c: Regenerated.
|
||||
* generated/product_c10.c: Regenerated.
|
||||
* generated/product_c16.c: Regenerated.
|
||||
* generated/product_c4.c: Regenerated.
|
||||
* generated/product_c8.c: Regenerated.
|
||||
* generated/product_i1.c: Regenerated.
|
||||
* generated/product_i16.c: Regenerated.
|
||||
* generated/product_i2.c: Regenerated.
|
||||
* generated/product_i4.c: Regenerated.
|
||||
* generated/product_i8.c: Regenerated.
|
||||
* generated/product_r10.c: Regenerated.
|
||||
* generated/product_r16.c: Regenerated.
|
||||
* generated/product_r4.c: Regenerated.
|
||||
* generated/product_r8.c: Regenerated.
|
||||
* generated/sum_c10.c: Regenerated.
|
||||
* generated/sum_c16.c: Regenerated.
|
||||
* generated/sum_c4.c: Regenerated.
|
||||
* generated/sum_c8.c: Regenerated.
|
||||
* generated/sum_i1.c: Regenerated.
|
||||
* generated/sum_i16.c: Regenerated.
|
||||
* generated/sum_i2.c: Regenerated.
|
||||
* generated/sum_i4.c: Regenerated.
|
||||
* generated/sum_i8.c: Regenerated.
|
||||
* generated/sum_r10.c: Regenerated.
|
||||
* generated/sum_r16.c: Regenerated.
|
||||
* generated/sum_r4.c: Regenerated.
|
||||
* generated/sum_r8.c: Regenerated.
|
||||
|
||||
2008-01-11 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||
|
||||
PR libfortran/34670
|
||||
|
||||
@ -116,8 +116,9 @@ all_l16 (gfc_array_l16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" ALL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" ALL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ all_l16 (gfc_array_l16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" ALL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" ALL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ all_l4 (gfc_array_l4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" ALL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" ALL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ all_l4 (gfc_array_l4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" ALL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" ALL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ all_l8 (gfc_array_l8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" ALL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" ALL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ all_l8 (gfc_array_l8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" ALL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" ALL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ any_l16 (gfc_array_l16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" ANY intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" ANY intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ any_l16 (gfc_array_l16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" ANY intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" ANY intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ any_l4 (gfc_array_l4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" ANY intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" ANY intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ any_l4 (gfc_array_l4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" ANY intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" ANY intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ any_l8 (gfc_array_l8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" ANY intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" ANY intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ any_l8 (gfc_array_l8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" ANY intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" ANY intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_16_l16 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_16_l16 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_16_l4 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_16_l4 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_16_l8 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_16_l8 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_4_l16 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_4_l16 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_4_l4 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_4_l4 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_4_l8 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_4_l8 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_8_l16 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_8_l16 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_8_l4 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_8_l4 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -116,8 +116,9 @@ count_8_l8 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" COUNT intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" COUNT intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ count_8_l8 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" COUNT intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" COUNT intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ maxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MAXLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MAXLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ smaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -117,8 +117,9 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXLOC intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXLOC intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -130,8 +131,8 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -323,8 +324,8 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -335,8 +336,8 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -460,7 +461,7 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -116,8 +116,9 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
{
|
||||
if (rank != GFC_DESCRIPTOR_RANK (retarray))
|
||||
runtime_error ("rank of return array incorrect in"
|
||||
" MAXVAL intrinsic: is %d, should be %d",
|
||||
GFC_DESCRIPTOR_RANK (retarray), rank);
|
||||
" MAXVAL intrinsic: is %ld, should be %ld",
|
||||
(long int) (GFC_DESCRIPTOR_RANK (retarray)),
|
||||
(long int) rank);
|
||||
|
||||
if (compile_options.bounds_check)
|
||||
{
|
||||
@ -129,8 +130,8 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
}
|
||||
@ -317,8 +318,8 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
- retarray->dim[n].lbound;
|
||||
if (extent[n] != ret_extent)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) ret_extent, (long int) extent[n]);
|
||||
}
|
||||
for (n=0; n<= rank; n++)
|
||||
@ -329,8 +330,8 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MAXVAL intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MAXVAL intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -449,7 +450,7 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MAXVAL intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
@ -77,13 +77,13 @@ minloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
}
|
||||
}
|
||||
|
||||
@ -203,18 +203,19 @@ mminloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
runtime_error ("Incorrect extent in return value of"
|
||||
" MINLOC intrnisic: is %ld, should be %d",
|
||||
(long int) ret_extent, rank);
|
||||
" MINLOC intrnisic: is %ld, should be %ld",
|
||||
(long int) ret_extent, (long int) rank);
|
||||
|
||||
mask_rank = GFC_DESCRIPTOR_RANK (mask);
|
||||
if (rank != mask_rank)
|
||||
runtime_error ("rank of MASK argument in MINLOC intrnisic"
|
||||
"should be %d, is %d", rank, mask_rank);
|
||||
"should be %ld, is %ld", (long int) rank,
|
||||
(long int) mask_rank);
|
||||
|
||||
for (n=0; n<rank; n++)
|
||||
{
|
||||
@ -222,8 +223,8 @@ mminloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound;
|
||||
if (array_extent != mask_extent)
|
||||
runtime_error ("Incorrect extent in MASK argument of"
|
||||
" MINLOC intrinsic in dimension %d:"
|
||||
" is %ld, should be %ld", n + 1,
|
||||
" MINLOC intrinsic in dimension %ld:"
|
||||
" is %ld, should be %ld", (long int) n + 1,
|
||||
(long int) mask_extent, (long int) array_extent);
|
||||
}
|
||||
}
|
||||
@ -360,7 +361,7 @@ sminloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||
ret_rank = GFC_DESCRIPTOR_RANK (retarray);
|
||||
if (ret_rank != 1)
|
||||
runtime_error ("rank of return array in MINLOC intrinsic"
|
||||
" should be 1, is %d", ret_rank);
|
||||
" should be 1, is %ld", (long int) ret_rank);
|
||||
|
||||
ret_extent = retarray->dim[0].ubound + 1 - retarray->dim[0].lbound;
|
||||
if (ret_extent != rank)
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user