OSDN Git Service

2008-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 13 Jan 2008 22:13:52 +0000 (22:13 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 13 Jan 2008 22:13:52 +0000 (22:13 +0000)
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131514 138bc75d-0d04-0410-961f-82ee72b054a4

170 files changed:
libgfortran/ChangeLog
libgfortran/generated/all_l16.c
libgfortran/generated/all_l4.c
libgfortran/generated/all_l8.c
libgfortran/generated/any_l16.c
libgfortran/generated/any_l4.c
libgfortran/generated/any_l8.c
libgfortran/generated/count_16_l16.c
libgfortran/generated/count_16_l4.c
libgfortran/generated/count_16_l8.c
libgfortran/generated/count_4_l16.c
libgfortran/generated/count_4_l4.c
libgfortran/generated/count_4_l8.c
libgfortran/generated/count_8_l16.c
libgfortran/generated/count_8_l4.c
libgfortran/generated/count_8_l8.c
libgfortran/generated/maxloc0_16_i1.c
libgfortran/generated/maxloc0_16_i16.c
libgfortran/generated/maxloc0_16_i2.c
libgfortran/generated/maxloc0_16_i4.c
libgfortran/generated/maxloc0_16_i8.c
libgfortran/generated/maxloc0_16_r10.c
libgfortran/generated/maxloc0_16_r16.c
libgfortran/generated/maxloc0_16_r4.c
libgfortran/generated/maxloc0_16_r8.c
libgfortran/generated/maxloc0_4_i1.c
libgfortran/generated/maxloc0_4_i16.c
libgfortran/generated/maxloc0_4_i2.c
libgfortran/generated/maxloc0_4_i4.c
libgfortran/generated/maxloc0_4_i8.c
libgfortran/generated/maxloc0_4_r10.c
libgfortran/generated/maxloc0_4_r16.c
libgfortran/generated/maxloc0_4_r4.c
libgfortran/generated/maxloc0_4_r8.c
libgfortran/generated/maxloc0_8_i1.c
libgfortran/generated/maxloc0_8_i16.c
libgfortran/generated/maxloc0_8_i2.c
libgfortran/generated/maxloc0_8_i4.c
libgfortran/generated/maxloc0_8_i8.c
libgfortran/generated/maxloc0_8_r10.c
libgfortran/generated/maxloc0_8_r16.c
libgfortran/generated/maxloc0_8_r4.c
libgfortran/generated/maxloc0_8_r8.c
libgfortran/generated/maxloc1_16_i1.c
libgfortran/generated/maxloc1_16_i16.c
libgfortran/generated/maxloc1_16_i2.c
libgfortran/generated/maxloc1_16_i4.c
libgfortran/generated/maxloc1_16_i8.c
libgfortran/generated/maxloc1_16_r10.c
libgfortran/generated/maxloc1_16_r16.c
libgfortran/generated/maxloc1_16_r4.c
libgfortran/generated/maxloc1_16_r8.c
libgfortran/generated/maxloc1_4_i1.c
libgfortran/generated/maxloc1_4_i16.c
libgfortran/generated/maxloc1_4_i2.c
libgfortran/generated/maxloc1_4_i4.c
libgfortran/generated/maxloc1_4_i8.c
libgfortran/generated/maxloc1_4_r10.c
libgfortran/generated/maxloc1_4_r16.c
libgfortran/generated/maxloc1_4_r4.c
libgfortran/generated/maxloc1_4_r8.c
libgfortran/generated/maxloc1_8_i1.c
libgfortran/generated/maxloc1_8_i16.c
libgfortran/generated/maxloc1_8_i2.c
libgfortran/generated/maxloc1_8_i4.c
libgfortran/generated/maxloc1_8_i8.c
libgfortran/generated/maxloc1_8_r10.c
libgfortran/generated/maxloc1_8_r16.c
libgfortran/generated/maxloc1_8_r4.c
libgfortran/generated/maxloc1_8_r8.c
libgfortran/generated/maxval_i1.c
libgfortran/generated/maxval_i16.c
libgfortran/generated/maxval_i2.c
libgfortran/generated/maxval_i4.c
libgfortran/generated/maxval_i8.c
libgfortran/generated/maxval_r10.c
libgfortran/generated/maxval_r16.c
libgfortran/generated/maxval_r4.c
libgfortran/generated/maxval_r8.c
libgfortran/generated/minloc0_16_i1.c
libgfortran/generated/minloc0_16_i16.c
libgfortran/generated/minloc0_16_i2.c
libgfortran/generated/minloc0_16_i4.c
libgfortran/generated/minloc0_16_i8.c
libgfortran/generated/minloc0_16_r10.c
libgfortran/generated/minloc0_16_r16.c
libgfortran/generated/minloc0_16_r4.c
libgfortran/generated/minloc0_16_r8.c
libgfortran/generated/minloc0_4_i1.c
libgfortran/generated/minloc0_4_i16.c
libgfortran/generated/minloc0_4_i2.c
libgfortran/generated/minloc0_4_i4.c
libgfortran/generated/minloc0_4_i8.c
libgfortran/generated/minloc0_4_r10.c
libgfortran/generated/minloc0_4_r16.c
libgfortran/generated/minloc0_4_r4.c
libgfortran/generated/minloc0_4_r8.c
libgfortran/generated/minloc0_8_i1.c
libgfortran/generated/minloc0_8_i16.c
libgfortran/generated/minloc0_8_i2.c
libgfortran/generated/minloc0_8_i4.c
libgfortran/generated/minloc0_8_i8.c
libgfortran/generated/minloc0_8_r10.c
libgfortran/generated/minloc0_8_r16.c
libgfortran/generated/minloc0_8_r4.c
libgfortran/generated/minloc0_8_r8.c
libgfortran/generated/minloc1_16_i1.c
libgfortran/generated/minloc1_16_i16.c
libgfortran/generated/minloc1_16_i2.c
libgfortran/generated/minloc1_16_i4.c
libgfortran/generated/minloc1_16_i8.c
libgfortran/generated/minloc1_16_r10.c
libgfortran/generated/minloc1_16_r16.c
libgfortran/generated/minloc1_16_r4.c
libgfortran/generated/minloc1_16_r8.c
libgfortran/generated/minloc1_4_i1.c
libgfortran/generated/minloc1_4_i16.c
libgfortran/generated/minloc1_4_i2.c
libgfortran/generated/minloc1_4_i4.c
libgfortran/generated/minloc1_4_i8.c
libgfortran/generated/minloc1_4_r10.c
libgfortran/generated/minloc1_4_r16.c
libgfortran/generated/minloc1_4_r4.c
libgfortran/generated/minloc1_4_r8.c
libgfortran/generated/minloc1_8_i1.c
libgfortran/generated/minloc1_8_i16.c
libgfortran/generated/minloc1_8_i2.c
libgfortran/generated/minloc1_8_i4.c
libgfortran/generated/minloc1_8_i8.c
libgfortran/generated/minloc1_8_r10.c
libgfortran/generated/minloc1_8_r16.c
libgfortran/generated/minloc1_8_r4.c
libgfortran/generated/minloc1_8_r8.c
libgfortran/generated/minval_i1.c
libgfortran/generated/minval_i16.c
libgfortran/generated/minval_i2.c
libgfortran/generated/minval_i4.c
libgfortran/generated/minval_i8.c
libgfortran/generated/minval_r10.c
libgfortran/generated/minval_r16.c
libgfortran/generated/minval_r4.c
libgfortran/generated/minval_r8.c
libgfortran/generated/product_c10.c
libgfortran/generated/product_c16.c
libgfortran/generated/product_c4.c
libgfortran/generated/product_c8.c
libgfortran/generated/product_i1.c
libgfortran/generated/product_i16.c
libgfortran/generated/product_i2.c
libgfortran/generated/product_i4.c
libgfortran/generated/product_i8.c
libgfortran/generated/product_r10.c
libgfortran/generated/product_r16.c
libgfortran/generated/product_r4.c
libgfortran/generated/product_r8.c
libgfortran/generated/sum_c10.c
libgfortran/generated/sum_c16.c
libgfortran/generated/sum_c4.c
libgfortran/generated/sum_c8.c
libgfortran/generated/sum_i1.c
libgfortran/generated/sum_i16.c
libgfortran/generated/sum_i2.c
libgfortran/generated/sum_i4.c
libgfortran/generated/sum_i8.c
libgfortran/generated/sum_r10.c
libgfortran/generated/sum_r16.c
libgfortran/generated/sum_r4.c
libgfortran/generated/sum_r8.c
libgfortran/m4/iforeach.m4
libgfortran/m4/ifunction.m4

index 34b7307..16ef713 100644 (file)
@@ -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
index 2cc81ce..9c53707 100644 (file)
@@ -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]);
            }
        }
index 12f9efb..6eb7986 100644 (file)
@@ -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]);
            }
        }
index c9fa809..7b98652 100644 (file)
@@ -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]);
            }
        }
index 1ba59ed..bffd620 100644 (file)
@@ -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]);
            }
        }
index 83116eb..f86445e 100644 (file)
@@ -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]);
            }
        }
index a85e6e8..f155abb 100644 (file)
@@ -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]);
            }
        }
index 351eb8a..4f3418b 100644 (file)
@@ -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]);
            }
        }
index 9f849d8..9b85369 100644 (file)
@@ -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]);
            }
        }
index 90659da..7a6a31a 100644 (file)
@@ -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]);
            }
        }
index c3b3daa..5dee546 100644 (file)
@@ -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]);
            }
        }
index 3bfcf17..04493b2 100644 (file)
@@ -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]);
            }
        }
index 7debda7..0e2f9bb 100644 (file)
@@ -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]);
            }
        }
index 815b79a..b0d1116 100644 (file)
@@ -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]);
            }
        }
index 84401de..e6a386e 100644 (file)
@@ -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]);
            }
        }
index fd26280..2a1b2a5 100644 (file)
@@ -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]);
            }
        }
index 3cd6554..7fc4443 100644 (file)
@@ -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)
index 9bfec04..29eb3cc 100644 (file)
@@ -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)
index b57e78f..30b693c 100644 (file)
@@ -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)
index 2e123b6..03f2794 100644 (file)
@@ -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)
index cd141a6..be18af3 100644 (file)
@@ -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)
index 8426d3a..48ba77e 100644 (file)
@@ -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)
index 3244452..9d2ce08 100644 (file)
@@ -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)
index 8057063..e908dad 100644 (file)
@@ -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)
index 6c12815..cb01745 100644 (file)
@@ -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)
index 42c865a..21ab578 100644 (file)
@@ -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)
index 938ceba..6803420 100644 (file)
@@ -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)
index 809d938..27cccae 100644 (file)
@@ -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)
index 5108cbe..650da03 100644 (file)
@@ -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)
index 987b424..48e1d3e 100644 (file)
@@ -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)
index b3101bd..05e3165 100644 (file)
@@ -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)
index 9b1e527..38cf352 100644 (file)
@@ -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)
index bf4692c..5ab9429 100644 (file)
@@ -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)
index 774a673..2658e4a 100644 (file)
@@ -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)
index 38890b7..ce71eb1 100644 (file)
@@ -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)
index be99a8c..e808a91 100644 (file)
@@ -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)
index 02a5f64..8bc1961 100644 (file)
@@ -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)
index dca0b76..8b6d212 100644 (file)
@@ -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)
index d11ba26..121827e 100644 (file)
@@ -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)
index 898f1f5..8fb4b13 100644 (file)
@@ -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)
index 6dec78a..7a5a4f3 100644 (file)
@@ -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)
index 345dbe1..8e02dcb 100644 (file)
@@ -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)
index bf7020e..c539df0 100644 (file)
@@ -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)
index 477eb70..47e6723 100644 (file)
@@ -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)
index e4a2c1b..2c8a06c 100644 (file)
@@ -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)
index f5d7b58..d7b1ca5 100644 (file)
@@ -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)
index 1fbda54..394c016 100644 (file)
@@ -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)
index 59be84c..5cff65d 100644 (file)
@@ -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)
index 3a8c8b7..32af8cd 100644 (file)
@@ -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)
index 60b9724..d695ad8 100644 (file)
@@ -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)
index a36a9d1..05dfbe3 100644 (file)
@@ -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)
index 9c659c0..a060e06 100644 (file)
@@ -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)
index 1d91328..2244456 100644 (file)
@@ -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)
index 92a08be..d0f260c 100644 (file)
@@ -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)
index b03d90a..5415eba 100644 (file)
@@ -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)
index dc90ec2..291b919 100644 (file)
@@ -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)
index 78da944..97a904d 100644 (file)
@@ -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)
index 1c83f62..07ccb24 100644 (file)
@@ -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)
index a31d0ac..5ecfffd 100644 (file)
@@ -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)
index 49d9cd5..f859cc7 100644 (file)
@@ -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)
index 822680a..5d67342 100644 (file)
@@ -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)
index 5c60753..f9ea707 100644 (file)
@@ -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)
index feefc08..478a8bc 100644 (file)
@@ -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)
index 8e4868d..972767f 100644 (file)
@@ -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)
index cb9d14d..e3b566d 100644 (file)
@@ -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)
index 8b8f2a9..e30e104 100644 (file)
@@ -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)
index 6aa6ec1..01e30f6 100644 (file)
@@ -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)
index 59db207..fbe72d1 100644 (file)
@@ -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)
index 3640a5d..3985d68 100644 (file)
@@ -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)
index 93c7c78..6e7745b 100644 (file)
@@ -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)
index 5158e2a..901f4e7 100644 (file)
@@ -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)&