diff options
170 files changed, 1849 insertions, 1501 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 34b7307..16ef713 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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 diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c index 2cc81ce..9c53707 100644 --- a/libgfortran/generated/all_l16.c +++ b/libgfortran/generated/all_l16.c @@ -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]); } } diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index 12f9efb..6eb7986 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -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]); } } diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c index c9fa809..7b98652 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -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]); } } diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c index 1ba59ed..bffd620 100644 --- a/libgfortran/generated/any_l16.c +++ b/libgfortran/generated/any_l16.c @@ -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]); } } diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c index 83116eb..f86445e 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -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]); } } diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c index a85e6e8..f155abb 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -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]); } } diff --git a/libgfortran/generated/count_16_l16.c b/libgfortran/generated/count_16_l16.c index 351eb8a..4f3418b 100644 --- a/libgfortran/generated/count_16_l16.c +++ b/libgfortran/generated/count_16_l16.c @@ -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]); } } diff --git a/libgfortran/generated/count_16_l4.c b/libgfortran/generated/count_16_l4.c index 9f849d8..9b85369 100644 --- a/libgfortran/generated/count_16_l4.c +++ b/libgfortran/generated/count_16_l4.c @@ -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]); } } diff --git a/libgfortran/generated/count_16_l8.c b/libgfortran/generated/count_16_l8.c index 90659da..7a6a31a 100644 --- a/libgfortran/generated/count_16_l8.c +++ b/libgfortran/generated/count_16_l8.c @@ -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]); } } diff --git a/libgfortran/generated/count_4_l16.c b/libgfortran/generated/count_4_l16.c index c3b3daa..5dee546 100644 --- a/libgfortran/generated/count_4_l16.c +++ b/libgfortran/generated/count_4_l16.c @@ -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]); } } diff --git a/libgfortran/generated/count_4_l4.c b/libgfortran/generated/count_4_l4.c index 3bfcf17..04493b2 100644 --- a/libgfortran/generated/count_4_l4.c +++ b/libgfortran/generated/count_4_l4.c @@ -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]); } } diff --git a/libgfortran/generated/count_4_l8.c b/libgfortran/generated/count_4_l8.c index 7debda7..0e2f9bb 100644 --- a/libgfortran/generated/count_4_l8.c +++ b/libgfortran/generated/count_4_l8.c @@ -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]); } } diff --git a/libgfortran/generated/count_8_l16.c b/libgfortran/generated/count_8_l16.c index 815b79a..b0d1116 100644 --- a/libgfortran/generated/count_8_l16.c +++ b/libgfortran/generated/count_8_l16.c @@ -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]); } } diff --git a/libgfortran/generated/count_8_l4.c b/libgfortran/generated/count_8_l4.c index 84401de..e6a386e 100644 --- a/libgfortran/generated/count_8_l4.c +++ b/libgfortran/generated/count_8_l4.c @@ -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]); } } diff --git a/libgfortran/generated/count_8_l8.c b/libgfortran/generated/count_8_l8.c index fd26280..2a1b2a5 100644 --- a/libgfortran/generated/count_8_l8.c +++ b/libgfortran/generated/count_8_l8.c @@ -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]); } } diff --git a/libgfortran/generated/maxloc0_16_i1.c b/libgfortran/generated/maxloc0_16_i1.c index 3cd6554..7fc4443 100644 --- a/libgfortran/generated/maxloc0_16_i1.c +++ b/libgfortran/generated/maxloc0_16_i1.c @@ -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) diff --git a/libgfortran/generated/maxloc0_16_i16.c b/libgfortran/generated/maxloc0_16_i16.c index 9bfec04..29eb3cc 100644 --- a/libgfortran/generated/maxloc0_16_i16.c +++ b/libgfortran/generated/maxloc0_16_i16.c @@ -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) diff --git a/libgfortran/generated/maxloc0_16_i2.c b/libgfortran/generated/maxloc0_16_i2.c index b57e78f..30b693c 100644 --- a/libgfortran/generated/maxloc0_16_i2.c +++ b/libgfortran/generated/maxloc0_16_i2.c @@ -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) diff --git a/libgfortran/generated/maxloc0_16_i4.c b/libgfortran/generated/maxloc0_16_i4.c index 2e123b6..03f2794 100644 --- a/libgfortran/generated/maxloc0_16_i4.c +++ b/libgfortran/generated/maxloc0_16_i4.c @@ -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) diff --git a/libgfortran/generated/maxloc0_16_i8.c b/libgfortran/generated/maxloc0_16_i8.c index cd141a6..be18af3 100644 --- a/libgfortran/generated/maxloc0_16_i8.c +++ b/libgfortran/generated/maxloc0_16_i8.c @@ -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) diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c index 8426d3a..48ba77e 100644 --- a/libgfortran/generated/maxloc0_16_r10.c +++ b/libgfortran/generated/maxloc0_16_r10.c @@ -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) diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c index 3244452..9d2ce08 100644 --- a/libgfortran/generated/maxloc0_16_r16.c +++ b/libgfortran/generated/maxloc0_16_r16.c @@ -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) diff --git a/libgfortran/generated/maxloc0_16_r4.c b/libgfortran/generated/maxloc0_16_r4.c index 8057063..e908dad 100644 --- a/libgfortran/generated/maxloc0_16_r4.c +++ b/libgfortran/generated/maxloc0_16_r4.c @@ -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) diff --git a/libgfortran/generated/maxloc0_16_r8.c b/libgfortran/generated/maxloc0_16_r8.c index 6c12815..cb01745 100644 --- a/libgfortran/generated/maxloc0_16_r8.c +++ b/libgfortran/generated/maxloc0_16_r8.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_i1.c b/libgfortran/generated/maxloc0_4_i1.c index 42c865a..21ab578 100644 --- a/libgfortran/generated/maxloc0_4_i1.c +++ b/libgfortran/generated/maxloc0_4_i1.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c index 938ceba..6803420 100644 --- a/libgfortran/generated/maxloc0_4_i16.c +++ b/libgfortran/generated/maxloc0_4_i16.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_i2.c b/libgfortran/generated/maxloc0_4_i2.c index 809d9382..27cccae 100644 --- a/libgfortran/generated/maxloc0_4_i2.c +++ b/libgfortran/generated/maxloc0_4_i2.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c index 5108cbe..650da03 100644 --- a/libgfortran/generated/maxloc0_4_i4.c +++ b/libgfortran/generated/maxloc0_4_i4.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c index 987b424..48e1d3e 100644 --- a/libgfortran/generated/maxloc0_4_i8.c +++ b/libgfortran/generated/maxloc0_4_i8.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_r10.c b/libgfortran/generated/maxloc0_4_r10.c index b3101bd..05e3165 100644 --- a/libgfortran/generated/maxloc0_4_r10.c +++ b/libgfortran/generated/maxloc0_4_r10.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_r16.c b/libgfortran/generated/maxloc0_4_r16.c index 9b1e527..38cf352 100644 --- a/libgfortran/generated/maxloc0_4_r16.c +++ b/libgfortran/generated/maxloc0_4_r16.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index bf4692c..5ab9429 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/libgfortran/generated/maxloc0_4_r4.c @@ -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) diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c index 774a673..2658e4a 100644 --- a/libgfortran/generated/maxloc0_4_r8.c +++ b/libgfortran/generated/maxloc0_4_r8.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_i1.c b/libgfortran/generated/maxloc0_8_i1.c index 38890b7..ce71eb1 100644 --- a/libgfortran/generated/maxloc0_8_i1.c +++ b/libgfortran/generated/maxloc0_8_i1.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_i16.c b/libgfortran/generated/maxloc0_8_i16.c index be99a8c..e808a91 100644 --- a/libgfortran/generated/maxloc0_8_i16.c +++ b/libgfortran/generated/maxloc0_8_i16.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_i2.c b/libgfortran/generated/maxloc0_8_i2.c index 02a5f64..8bc1961 100644 --- a/libgfortran/generated/maxloc0_8_i2.c +++ b/libgfortran/generated/maxloc0_8_i2.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c index dca0b76..8b6d212 100644 --- a/libgfortran/generated/maxloc0_8_i4.c +++ b/libgfortran/generated/maxloc0_8_i4.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c index d11ba26..121827e 100644 --- a/libgfortran/generated/maxloc0_8_i8.c +++ b/libgfortran/generated/maxloc0_8_i8.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c index 898f1f5..8fb4b13 100644 --- a/libgfortran/generated/maxloc0_8_r10.c +++ b/libgfortran/generated/maxloc0_8_r10.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_r16.c b/libgfortran/generated/maxloc0_8_r16.c index 6dec78a..7a5a4f3 100644 --- a/libgfortran/generated/maxloc0_8_r16.c +++ b/libgfortran/generated/maxloc0_8_r16.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c index 345dbe1..8e02dcb 100644 --- a/libgfortran/generated/maxloc0_8_r4.c +++ b/libgfortran/generated/maxloc0_8_r4.c @@ -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) diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c index bf7020e..c539df0 100644 --- a/libgfortran/generated/maxloc0_8_r8.c +++ b/libgfortran/generated/maxloc0_8_r8.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c index 477eb70..47e6723 100644 --- a/libgfortran/generated/maxloc1_16_i1.c +++ b/libgfortran/generated/maxloc1_16_i1.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c index e4a2c1b..2c8a06c 100644 --- a/libgfortran/generated/maxloc1_16_i16.c +++ b/libgfortran/generated/maxloc1_16_i16.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c index f5d7b58..d7b1ca5 100644 --- a/libgfortran/generated/maxloc1_16_i2.c +++ b/libgfortran/generated/maxloc1_16_i2.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c index 1fbda54..394c016 100644 --- a/libgfortran/generated/maxloc1_16_i4.c +++ b/libgfortran/generated/maxloc1_16_i4.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c index 59be84c..5cff65d 100644 --- a/libgfortran/generated/maxloc1_16_i8.c +++ b/libgfortran/generated/maxloc1_16_i8.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c index 3a8c8b7..32af8cd 100644 --- a/libgfortran/generated/maxloc1_16_r10.c +++ b/libgfortran/generated/maxloc1_16_r10.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c index 60b9724..d695ad8 100644 --- a/libgfortran/generated/maxloc1_16_r16.c +++ b/libgfortran/generated/maxloc1_16_r16.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c index a36a9d11..05dfbe3 100644 --- a/libgfortran/generated/maxloc1_16_r4.c +++ b/libgfortran/generated/maxloc1_16_r4.c @@ -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) diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c index 9c659c0..a060e06 100644 --- a/libgfortran/generated/maxloc1_16_r8.c +++ b/libgfortran/generated/maxloc1_16_r8.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c index 1d91328..2244456 100644 --- a/libgfortran/generated/maxloc1_4_i1.c +++ b/libgfortran/generated/maxloc1_4_i1.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c index 92a08be..d0f260c 100644 --- a/libgfortran/generated/maxloc1_4_i16.c +++ b/libgfortran/generated/maxloc1_4_i16.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c index b03d90a..5415eba 100644 --- a/libgfortran/generated/maxloc1_4_i2.c +++ b/libgfortran/generated/maxloc1_4_i2.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index dc90ec2..291b9199 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index 78da944..97a904d 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c index 1c83f62..07ccb24 100644 --- a/libgfortran/generated/maxloc1_4_r10.c +++ b/libgfortran/generated/maxloc1_4_r10.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c index a31d0ac..5ecfffd 100644 --- a/libgfortran/generated/maxloc1_4_r16.c +++ b/libgfortran/generated/maxloc1_4_r16.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index 49d9cd5..f859cc7 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -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) diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index 822680a..5d67342 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c index 5c60753..f9ea707 100644 --- a/libgfortran/generated/maxloc1_8_i1.c +++ b/libgfortran/generated/maxloc1_8_i1.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c index feefc08..478a8bc 100644 --- a/libgfortran/generated/maxloc1_8_i16.c +++ b/libgfortran/generated/maxloc1_8_i16.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c index 8e4868d..972767f 100644 --- a/libgfortran/generated/maxloc1_8_i2.c +++ b/libgfortran/generated/maxloc1_8_i2.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index cb9d14d..e3b566d 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index 8b8f2a9..e30e104d 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c index 6aa6ec1..01e30f6 100644 --- a/libgfortran/generated/maxloc1_8_r10.c +++ b/libgfortran/generated/maxloc1_8_r10.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c index 59db207..fbe72d1 100644 --- a/libgfortran/generated/maxloc1_8_r16.c +++ b/libgfortran/generated/maxloc1_8_r16.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index 3640a5d..3985d68 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -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) diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index 93c7c78..6e7745b 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -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) diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c index 5158e2a..901f4e7 100644 --- a/libgfortran/generated/maxval_i1.c +++ b/libgfortran/generated/maxval_i1.c @@ -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) diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c index a10c8fa..c082e85 100644 --- a/libgfortran/generated/maxval_i16.c +++ b/libgfortran/generated/maxval_i16.c @@ -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) diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c index 3819e0e..87865e1 100644 --- a/libgfortran/generated/maxval_i2.c +++ b/libgfortran/generated/maxval_i2.c @@ -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) diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index 1076336..3fa4a10 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -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) diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index f527983..8b2106d 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -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) diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c index fd775c0..a076190 100644 --- a/libgfortran/generated/maxval_r10.c +++ b/libgfortran/generated/maxval_r10.c @@ -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) diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c index 671ce14..1e36379 100644 --- a/libgfortran/generated/maxval_r16.c +++ b/libgfortran/generated/maxval_r16.c @@ -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) diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index 6741422..222a4e3 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -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) diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index 136ef207..163ec5a 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_i1.c b/libgfortran/generated/minloc0_16_i1.c index 9529997..d0d6903 100644 --- a/libgfortran/generated/minloc0_16_i1.c +++ b/libgfortran/generated/minloc0_16_i1.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_i16.c b/libgfortran/generated/minloc0_16_i16.c index 667bfd8..59c1d0ab 100644 --- a/libgfortran/generated/minloc0_16_i16.c +++ b/libgfortran/generated/minloc0_16_i16.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_i2.c b/libgfortran/generated/minloc0_16_i2.c index a5c4994..0df6bd1 100644 --- a/libgfortran/generated/minloc0_16_i2.c +++ b/libgfortran/generated/minloc0_16_i2.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_i4.c b/libgfortran/generated/minloc0_16_i4.c index 7c9292cd..48bb60b 100644 --- a/libgfortran/generated/minloc0_16_i4.c +++ b/libgfortran/generated/minloc0_16_i4.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_i8.c b/libgfortran/generated/minloc0_16_i8.c index 022e49c..b92f7e4 100644 --- a/libgfortran/generated/minloc0_16_i8.c +++ b/libgfortran/generated/minloc0_16_i8.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_r10.c b/libgfortran/generated/minloc0_16_r10.c index a99c530..6480a8d 100644 --- a/libgfortran/generated/minloc0_16_r10.c +++ b/libgfortran/generated/minloc0_16_r10.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_r16.c b/libgfortran/generated/minloc0_16_r16.c index 2b2dcaa..325c8f6 100644 --- a/libgfortran/generated/minloc0_16_r16.c +++ b/libgfortran/generated/minloc0_16_r16.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_r4.c b/libgfortran/generated/minloc0_16_r4.c index f265ae4..2376d40 100644 --- a/libgfortran/generated/minloc0_16_r4.c +++ b/libgfortran/generated/minloc0_16_r4.c @@ -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) diff --git a/libgfortran/generated/minloc0_16_r8.c b/libgfortran/generated/minloc0_16_r8.c index 59429f2..e72abab 100644 --- a/libgfortran/generated/minloc0_16_r8.c +++ b/libgfortran/generated/minloc0_16_r8.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_i1.c b/libgfortran/generated/minloc0_4_i1.c index 24463ea..ce045a2 100644 --- a/libgfortran/generated/minloc0_4_i1.c +++ b/libgfortran/generated/minloc0_4_i1.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_i16.c b/libgfortran/generated/minloc0_4_i16.c index ddcbc60..9ae856e6 100644 --- a/libgfortran/generated/minloc0_4_i16.c +++ b/libgfortran/generated/minloc0_4_i16.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_i2.c b/libgfortran/generated/minloc0_4_i2.c index 60b2c3f..c33e99c 100644 --- a/libgfortran/generated/minloc0_4_i2.c +++ b/libgfortran/generated/minloc0_4_i2.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c index 6431f38..9d7eda6 100644 --- a/libgfortran/generated/minloc0_4_i4.c +++ b/libgfortran/generated/minloc0_4_i4.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c index 6ffeac5..046e040 100644 --- a/libgfortran/generated/minloc0_4_i8.c +++ b/libgfortran/generated/minloc0_4_i8.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_r10.c b/libgfortran/generated/minloc0_4_r10.c index e4f1002..8f7b924 100644 --- a/libgfortran/generated/minloc0_4_r10.c +++ b/libgfortran/generated/minloc0_4_r10.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_r16.c b/libgfortran/generated/minloc0_4_r16.c index 0f9fb98..1539192 100644 --- a/libgfortran/generated/minloc0_4_r16.c +++ b/libgfortran/generated/minloc0_4_r16.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c index 14c63b3..86ffdb8 100644 --- a/libgfortran/generated/minloc0_4_r4.c +++ b/libgfortran/generated/minloc0_4_r4.c @@ -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) diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c index 168d0ad..e78cdd8 100644 --- a/libgfortran/generated/minloc0_4_r8.c +++ b/libgfortran/generated/minloc0_4_r8.c @@ -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) diff --git a/libgfortran/generated/minloc0_8_i1.c b/libgfortran/generated/minloc0_8_i1.c index 6dcafba..5872d85 100644 --- a/libgfortran/generated/minloc0_8_i1.c +++ b/libgfortran/generated/minloc0_8_i1.c @@ -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) diff --git a/libgfortran/generated/minloc0_8_i16.c b/libgfortran/generated/minloc0_8_i16.c index f2afae1..b56409a 100644 --- a/libgfortran/generated/minloc0_8_i16.c +++ b/libgfortran/generated/minloc0_8_i16.c @@ -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) diff --git a/libgfortran/generated/minloc0_8_i2.c b/libgfortran/generated/minloc0_8_i2.c index d0dd137..63cd947 100644 --- a/libgfortran/generated/minloc0_8_i2.c +++ b/libgfortran/generated/minloc0_8_i2.c @@ -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) diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c index a4c921a..5092f89 100644 --- a/libgfortran/generated/minloc0_8_i4.c +++ b/libgfortran/generated/minloc0_8_i4.c @@ -77,13 +77,13 @@ minloc0_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 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_i4 (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_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" - " 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_i4 (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) diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c index 26aa947..e1b99ef 100644 --- a/libgfortran/generated/minloc0_8_i8.c +++ b/libgfortran/generated/minloc0_8_i8.c @@ -77,13 +77,13 @@ minloc0_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 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_i8 (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_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" - " 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_i8 (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) diff --git a/libgfortran/generated/minloc0_8_r10.c b/libgfortran/generated/minloc0_8_r10.c index b1705eb..600b3aa 100644 --- a/libgfortran/generated/minloc0_8_r10.c +++ b/libgfortran/generated/minloc0_8_r10.c @@ -77,13 +77,13 @@ minloc0_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 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_r10 (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_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" - " 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_r10 (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) diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c index 84b95ba..fa4b5cd 100644 --- a/libgfortran/generated/minloc0_8_r16.c +++ b/libgfortran/generated/minloc0_8_r16.c @@ -77,13 +77,13 @@ minloc0_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 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_r16 (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_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" - " 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_r16 (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) diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index d7b8d54..1347f15 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/libgfortran/generated/minloc0_8_r4.c @@ -77,13 +77,13 @@ minloc0_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 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_r4 (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_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" - " 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_r4 (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) diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c index 6ac0bfe..6a7b2f0 100644 --- a/libgfortran/generated/minloc0_8_r8.c +++ b/libgfortran/generated/minloc0_8_r8.c @@ -77,13 +77,13 @@ minloc0_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 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_r8 (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_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" - " 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_r8 (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) diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c index c1baf54..f4abfa8 100644 --- a/libgfortran/generated/minloc1_16_i1.c +++ b/libgfortran/generated/minloc1_16_i1.c @@ -117,8 +117,9 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c index db992cb..40b86ea 100644 --- a/libgfortran/generated/minloc1_16_i16.c +++ b/libgfortran/generated/minloc1_16_i16.c @@ -117,8 +117,9 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c index 523a4af..f7057b2 100644 --- a/libgfortran/generated/minloc1_16_i2.c +++ b/libgfortran/generated/minloc1_16_i2.c @@ -117,8 +117,9 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c index e8d5fc3..3cf6f0d 100644 --- a/libgfortran/generated/minloc1_16_i4.c +++ b/libgfortran/generated/minloc1_16_i4.c @@ -117,8 +117,9 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c index 8c3e4e4..a083868 100644 --- a/libgfortran/generated/minloc1_16_i8.c +++ b/libgfortran/generated/minloc1_16_i8.c @@ -117,8 +117,9 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c index 7aa89a9..20b1c57 100644 --- a/libgfortran/generated/minloc1_16_r10.c +++ b/libgfortran/generated/minloc1_16_r10.c @@ -117,8 +117,9 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c index 5b81445..40fcbae 100644 --- a/libgfortran/generated/minloc1_16_r16.c +++ b/libgfortran/generated/minloc1_16_r16.c @@ -117,8 +117,9 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c index b3c6155..76e7efa 100644 --- a/libgfortran/generated/minloc1_16_r4.c +++ b/libgfortran/generated/minloc1_16_r4.c @@ -117,8 +117,9 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c index 0a4b1b5..97ca866 100644 --- a/libgfortran/generated/minloc1_16_r8.c +++ b/libgfortran/generated/minloc1_16_r8.c @@ -117,8 +117,9 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c index 9cebebe..330c0d9 100644 --- a/libgfortran/generated/minloc1_4_i1.c +++ b/libgfortran/generated/minloc1_4_i1.c @@ -117,8 +117,9 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c index a984a15..a142adb 100644 --- a/libgfortran/generated/minloc1_4_i16.c +++ b/libgfortran/generated/minloc1_4_i16.c @@ -117,8 +117,9 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c index 685f979..d7a9280 100644 --- a/libgfortran/generated/minloc1_4_i2.c +++ b/libgfortran/generated/minloc1_4_i2.c @@ -117,8 +117,9 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index f44a631..c6b12e8 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -117,8 +117,9 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index f6858c0..bac4eb5 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -117,8 +117,9 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c index 8e359fe..0579519 100644 --- a/libgfortran/generated/minloc1_4_r10.c +++ b/libgfortran/generated/minloc1_4_r10.c @@ -117,8 +117,9 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c index 11cb9c8..d74d26d 100644 --- a/libgfortran/generated/minloc1_4_r16.c +++ b/libgfortran/generated/minloc1_4_r16.c @@ -117,8 +117,9 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index 31aa1f7..050ed5c 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -117,8 +117,9 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index a7a56b6..483cd19 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -117,8 +117,9 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c index 1fae32b..1fc81d1 100644 --- a/libgfortran/generated/minloc1_8_i1.c +++ b/libgfortran/generated/minloc1_8_i1.c @@ -117,8 +117,9 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c index 0d31c94..ecbabc7 100644 --- a/libgfortran/generated/minloc1_8_i16.c +++ b/libgfortran/generated/minloc1_8_i16.c @@ -117,8 +117,9 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c index 8865575..2c03443 100644 --- a/libgfortran/generated/minloc1_8_i2.c +++ b/libgfortran/generated/minloc1_8_i2.c @@ -117,8 +117,9 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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); } } @@ -460,7 +461,7 @@ sminloc1_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) diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 31ee238..9454237 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -117,8 +117,9 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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" - " 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); } } @@ -460,7 +461,7 @@ sminloc1_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 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) diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index 13577ab..df80145 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -117,8 +117,9 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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" - " 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); } } @@ -460,7 +461,7 @@ sminloc1_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 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) diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c index 726aa1c..364bf5c 100644 --- a/libgfortran/generated/minloc1_8_r10.c +++ b/libgfortran/generated/minloc1_8_r10.c @@ -117,8 +117,9 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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" - " 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); } } @@ -460,7 +461,7 @@ sminloc1_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 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) diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c index aaf9797..b8ad095 100644 --- a/libgfortran/generated/minloc1_8_r16.c +++ b/libgfortran/generated/minloc1_8_r16.c @@ -117,8 +117,9 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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" - " 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); } } @@ -460,7 +461,7 @@ sminloc1_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 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) diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index 6b0bcec..e9df66c 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -117,8 +117,9 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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" - " 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); } } @@ -460,7 +461,7 @@ sminloc1_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 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) diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index 8a8d266..7d2cfff 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -117,8 +117,9 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINLOC intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -130,8 +131,8 @@ minloc1_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" - " 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) ret_extent, (long int) extent[n]); } } @@ -323,8 +324,8 @@ mminloc1_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" - " 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) ret_extent, (long int) extent[n]); } for (n=0; n<= rank; n++) @@ -335,8 +336,8 @@ mminloc1_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" - " 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); } } @@ -460,7 +461,7 @@ sminloc1_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 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) diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c index ef31ba0..1789ec9 100644 --- a/libgfortran/generated/minval_i1.c +++ b/libgfortran/generated/minval_i1.c @@ -116,8 +116,9 @@ minval_i1 (gfc_array_i1 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_i1 (gfc_array_i1 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_i1 (gfc_array_i1 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_i1 (gfc_array_i1 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c index 8d7bf50..2916256 100644 --- a/libgfortran/generated/minval_i16.c +++ b/libgfortran/generated/minval_i16.c @@ -116,8 +116,9 @@ minval_i16 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_i16 (gfc_array_i16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_i16 (gfc_array_i16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_i16 (gfc_array_i16 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c index c3d63f6..73bf18b 100644 --- a/libgfortran/generated/minval_i2.c +++ b/libgfortran/generated/minval_i2.c @@ -116,8 +116,9 @@ minval_i2 (gfc_array_i2 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_i2 (gfc_array_i2 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_i2 (gfc_array_i2 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_i2 (gfc_array_i2 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 48ea446..8d6e52a 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -116,8 +116,9 @@ minval_i4 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_i4 (gfc_array_i4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_i4 (gfc_array_i4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_i4 (gfc_array_i4 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index cd2100a..22cf462 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -116,8 +116,9 @@ minval_i8 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_i8 (gfc_array_i8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_i8 (gfc_array_i8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_i8 (gfc_array_i8 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c index 10d0302..f4d467c 100644 --- a/libgfortran/generated/minval_r10.c +++ b/libgfortran/generated/minval_r10.c @@ -116,8 +116,9 @@ minval_r10 (gfc_array_r10 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_r10 (gfc_array_r10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_r10 (gfc_array_r10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_r10 (gfc_array_r10 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c index da6e796..7ba19c9 100644 --- a/libgfortran/generated/minval_r16.c +++ b/libgfortran/generated/minval_r16.c @@ -116,8 +116,9 @@ minval_r16 (gfc_array_r16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_r16 (gfc_array_r16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_r16 (gfc_array_r16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_r16 (gfc_array_r16 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index 745889a..3b29f2f 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -116,8 +116,9 @@ minval_r4 (gfc_array_r4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_r4 (gfc_array_r4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_r4 (gfc_array_r4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_r4 (gfc_array_r4 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index 1b0fec0..adca8b2 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -116,8 +116,9 @@ minval_r8 (gfc_array_r8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " MINVAL intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " MINVAL intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ minval_r8 (gfc_array_r8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_r8 (gfc_array_r8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ mminval_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" - " MINVAL intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " MINVAL 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 @@ sminval_r8 (gfc_array_r8 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in MINVAL 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) diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c index 701835f..def678a 100644 --- a/libgfortran/generated/product_c10.c +++ b/libgfortran/generated/product_c10.c @@ -116,8 +116,9 @@ product_c10 (gfc_array_c10 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_c10 (gfc_array_c10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_c10 (gfc_array_c10 * 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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c index 1d58a76..d8750ae 100644 --- a/libgfortran/generated/product_c16.c +++ b/libgfortran/generated/product_c16.c @@ -116,8 +116,9 @@ product_c16 (gfc_array_c16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_c16 (gfc_array_c16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_c16 (gfc_array_c16 * 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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index 3754fcb..7cac33f 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -116,8 +116,9 @@ product_c4 (gfc_array_c4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_c4 (gfc_array_c4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_c4 (gfc_array_c4 * 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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index 6312451..e4f0f6b 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -116,8 +116,9 @@ product_c8 (gfc_array_c8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_c8 (gfc_array_c8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_c8 (gfc_array_c8 * 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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c index 7003129..5a428ca 100644 --- a/libgfortran/generated/product_i1.c +++ b/libgfortran/generated/product_i1.c @@ -116,8 +116,9 @@ product_i1 (gfc_array_i1 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_i1 (gfc_array_i1 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c index 3c44808..a1593a4 100644 --- a/libgfortran/generated/product_i16.c +++ b/libgfortran/generated/product_i16.c @@ -116,8 +116,9 @@ product_i16 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_i16 (gfc_array_i16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c index ca57d29..16793f8 100644 --- a/libgfortran/generated/product_i2.c +++ b/libgfortran/generated/product_i2.c @@ -116,8 +116,9 @@ product_i2 (gfc_array_i2 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_i2 (gfc_array_i2 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index d31eb6e..cbace913 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -116,8 +116,9 @@ product_i4 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_i4 (gfc_array_i4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index 8867aae..f1fc567 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -116,8 +116,9 @@ product_i8 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_i8 (gfc_array_i8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c index 235b8a6..4b7c580 100644 --- a/libgfortran/generated/product_r10.c +++ b/libgfortran/generated/product_r10.c @@ -116,8 +116,9 @@ product_r10 (gfc_array_r10 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_r10 (gfc_array_r10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c index 2f837e3..b18155b 100644 --- a/libgfortran/generated/product_r16.c +++ b/libgfortran/generated/product_r16.c @@ -116,8 +116,9 @@ product_r16 (gfc_array_r16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_r16 (gfc_array_r16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index 4e6c3d1..754cac2 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -116,8 +116,9 @@ product_r4 (gfc_array_r4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_r4 (gfc_array_r4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index 849d404..5f68856 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -116,8 +116,9 @@ product_r8 (gfc_array_r8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " PRODUCT intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " PRODUCT intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ product_r8 (gfc_array_r8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT 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++) @@ -328,8 +329,8 @@ mproduct_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" - " PRODUCT intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " PRODUCT intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in PRODUCT 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) diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c index f3da384..e495a0b 100644 --- a/libgfortran/generated/sum_c10.c +++ b/libgfortran/generated/sum_c10.c @@ -116,8 +116,9 @@ sum_c10 (gfc_array_c10 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_c10 (gfc_array_c10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_c10 (gfc_array_c10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_c10 (gfc_array_c10 * 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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_c10 (gfc_array_c10 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c index df79daf..c73083a 100644 --- a/libgfortran/generated/sum_c16.c +++ b/libgfortran/generated/sum_c16.c @@ -116,8 +116,9 @@ sum_c16 (gfc_array_c16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_c16 (gfc_array_c16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_c16 (gfc_array_c16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_c16 (gfc_array_c16 * 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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_c16 (gfc_array_c16 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index 9ef9e83..6f32327 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -116,8 +116,9 @@ sum_c4 (gfc_array_c4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_c4 (gfc_array_c4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_c4 (gfc_array_c4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_c4 (gfc_array_c4 * 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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_c4 (gfc_array_c4 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index a7f7392..80db110 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -116,8 +116,9 @@ sum_c8 (gfc_array_c8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_c8 (gfc_array_c8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_c8 (gfc_array_c8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_c8 (gfc_array_c8 * 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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_c8 (gfc_array_c8 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c index 8740fb7..c652712 100644 --- a/libgfortran/generated/sum_i1.c +++ b/libgfortran/generated/sum_i1.c @@ -116,8 +116,9 @@ sum_i1 (gfc_array_i1 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_i1 (gfc_array_i1 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_i1 (gfc_array_i1 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_i1 (gfc_array_i1 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c index 6500d17..43a29a2 100644 --- a/libgfortran/generated/sum_i16.c +++ b/libgfortran/generated/sum_i16.c @@ -116,8 +116,9 @@ sum_i16 (gfc_array_i16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_i16 (gfc_array_i16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_i16 (gfc_array_i16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_i16 (gfc_array_i16 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c index 10202c3..6c6fcc1 100644 --- a/libgfortran/generated/sum_i2.c +++ b/libgfortran/generated/sum_i2.c @@ -116,8 +116,9 @@ sum_i2 (gfc_array_i2 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_i2 (gfc_array_i2 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_i2 (gfc_array_i2 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_i2 (gfc_array_i2 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index 4d0e8a4..e28d2c9 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -116,8 +116,9 @@ sum_i4 (gfc_array_i4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_i4 (gfc_array_i4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_i4 (gfc_array_i4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_i4 (gfc_array_i4 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index 8b280a8..6e824f1 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -116,8 +116,9 @@ sum_i8 (gfc_array_i8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_i8 (gfc_array_i8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_i8 (gfc_array_i8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_i8 (gfc_array_i8 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c index 0fd8775..1ebd1ed 100644 --- a/libgfortran/generated/sum_r10.c +++ b/libgfortran/generated/sum_r10.c @@ -116,8 +116,9 @@ sum_r10 (gfc_array_r10 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_r10 (gfc_array_r10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_r10 (gfc_array_r10 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_r10 (gfc_array_r10 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c index 8903b64..0038983 100644 --- a/libgfortran/generated/sum_r16.c +++ b/libgfortran/generated/sum_r16.c @@ -116,8 +116,9 @@ sum_r16 (gfc_array_r16 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_r16 (gfc_array_r16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_r16 (gfc_array_r16 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_r16 (gfc_array_r16 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index 1d3f2d0..1f058dc 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -116,8 +116,9 @@ sum_r4 (gfc_array_r4 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_r4 (gfc_array_r4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_r4 (gfc_array_r4 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_r4 (gfc_array_r4 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index d049876..82a03bc 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -116,8 +116,9 @@ sum_r8 (gfc_array_r8 * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " SUM intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " SUM intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -129,8 +130,8 @@ sum_r8 (gfc_array_r8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -316,8 +317,8 @@ msum_r8 (gfc_array_r8 * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM 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++) @@ -328,8 +329,8 @@ msum_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" - " SUM intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " SUM intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -448,7 +449,7 @@ ssum_r8 (gfc_array_r8 * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in SUM 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) diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index a49d33b..071900b0 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -44,13 +44,13 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in u_name 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" - " u_name intrnisic: is %ld, should be %d", - (long int) ret_extent, rank); + " u_name intrnisic: is %ld, should be %ld", + (long int) ret_extent, (long int) rank); } } @@ -162,18 +162,19 @@ void ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in u_name 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" - " u_name intrnisic: is %ld, should be %d", - (long int) ret_extent, rank); + " u_name 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 u_name 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++) { @@ -181,8 +182,8 @@ void mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound; if (array_extent != mask_extent) runtime_error ("Incorrect extent in MASK argument of" - " u_name intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " u_name intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -318,7 +319,7 @@ void ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in u_name 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) diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index 965fff8..9769e4d 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -99,8 +99,9 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, { if (rank != GFC_DESCRIPTOR_RANK (retarray)) runtime_error ("rank of return array incorrect in" - " u_name intrinsic: is %d, should be %d", - GFC_DESCRIPTOR_RANK (retarray), rank); + " u_name intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); if (compile_options.bounds_check) { @@ -112,8 +113,8 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " u_name intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " u_name intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) ret_extent, (long int) extent[n]); } } @@ -299,8 +300,8 @@ void - retarray->dim[n].lbound; if (extent[n] != ret_extent) runtime_error ("Incorrect extent in return value of" - " u_name intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " u_name 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++) @@ -311,8 +312,8 @@ void mask_extent = mask->dim[n].ubound + 1 - mask->dim[n].lbound; if (array_extent != mask_extent) runtime_error ("Incorrect extent in MASK argument of" - " u_name intrinsic in dimension %d:" - " is %ld, should be %ld", n + 1, + " u_name intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, (long int) mask_extent, (long int) array_extent); } } @@ -430,7 +431,7 @@ void ret_rank = GFC_DESCRIPTOR_RANK (retarray); if (ret_rank != 1) runtime_error ("rank of return array in u_name 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) |