Skip to content

R
riscv-gcc-1
Commit 97e1c878 by Janne Blomqvist
Options

PR 36313 Replace int with gfc_charlen_type, take 3 

Still some prototypes that didn't match the implementation.

2017-11-24  Janne Blomqvist  <jb@gcc.gnu.org>
        PR fortran/36313
        * m4/maxloc2s.m4: Replace int with gfc_charlen_type, take 3.
        * m4/minloc2s.m4: Likewise.
        * generated/maxloc2_16_s1.c: Regenerated.
        * generated/maxloc2_16_s4.c: Regenerated.
        * generated/maxloc2_4_s1.c: Regenerated.
        * generated/maxloc2_4_s4.c: Regenerated.
        * generated/maxloc2_8_s1.c: Regenerated.
        * generated/maxloc2_8_s4.c: Regenerated.
        * generated/minloc2_16_s1.c: Regenerated.
        * generated/minloc2_16_s4.c: Regenerated.
        * generated/minloc2_4_s1.c: Regenerated.
        * generated/minloc2_4_s4.c: Regenerated.
        * generated/minloc2_8_s1.c: Regenerated.
        * generated/minloc2_8_s4.c: Regenerated.

From-SVN: r255135
parent 96281645
Showing with 31 additions and 14 deletions
libgfortran/ChangeLog
2017-11-24 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/36313
* m4/maxloc2s.m4: Replace int with gfc_charlen_type, take 3.
* m4/minloc2s.m4: Likewise.
* generated/maxloc2_16_s1.c: Regenerated.
* generated/maxloc2_16_s4.c: Regenerated.
* generated/maxloc2_4_s1.c: Regenerated.
* generated/maxloc2_4_s4.c: Regenerated.
* generated/maxloc2_8_s1.c: Regenerated.
* generated/maxloc2_8_s4.c: Regenerated.
* generated/minloc2_16_s1.c: Regenerated.
* generated/minloc2_16_s4.c: Regenerated.
* generated/minloc2_4_s1.c: Regenerated.
* generated/minloc2_4_s4.c: Regenerated.
* generated/minloc2_8_s1.c: Regenerated.
* generated/minloc2_8_s4.c: Regenerated.
2017-11-23 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/36313
......
libgfortran/generated/maxloc2_16_s1.c
......@@ -141,7 +141,7 @@ mmaxloc2_16_s1 (gfc_array_s1 * const restrict array,
}
extern GFC_INTEGER_16 smaxloc2_16_s1 (gfc_array_s1 * const restrict,
GFC_LOGICAL_4 *mask, int);
GFC_LOGICAL_4 *mask, gfc_charlen_type);
export_proto(smaxloc2_16_s1);
GFC_INTEGER_16
......
libgfortran/generated/maxloc2_16_s4.c
......@@ -141,7 +141,7 @@ mmaxloc2_16_s4 (gfc_array_s4 * const restrict array,
}
extern GFC_INTEGER_16 smaxloc2_16_s4 (gfc_array_s4 * const restrict,
GFC_LOGICAL_4 *mask, int);
GFC_LOGICAL_4 *mask, gfc_charlen_type);
export_proto(smaxloc2_16_s4);
GFC_INTEGER_16
......
libgfortran/generated/maxloc2_4_s1.c
......@@ -141,7 +141,7 @@ mmaxloc2_4_s1 (gfc_array_s1 * const restrict array,
}
extern GFC_INTEGER_4 smaxloc2_4_s1 (gfc_array_s1 * const restrict,
GFC_LOGICAL_4 *mask, int);
GFC_LOGICAL_4 *mask, gfc_charlen_type);
export_proto(smaxloc2_4_s1);
GFC_INTEGER_4
......
libgfortran/generated/maxloc2_4_s4.c
......@@ -141,7 +141,7 @@ mmaxloc2_4_s4 (gfc_array_s4 * const restrict array,
}
extern GFC_INTEGER_4 smaxloc2_4_s4 (gfc_array_s4 * const restrict,
GFC_LOGICAL_4 *mask, int);
GFC_LOGICAL_4 *mask, gfc_charlen_type);
export_proto(smaxloc2_4_s4);
GFC_INTEGER_4
......
libgfortran/generated/maxloc2_8_s1.c
......@@ -141,7 +141,7 @@ mmaxloc2_8_s1 (gfc_array_s1 * const restrict array,
}
extern GFC_INTEGER_8 smaxloc2_8_s1 (gfc_array_s1 * const restrict,
GFC_LOGICAL_4 *mask, int);
GFC_LOGICAL_4 *mask, gfc_charlen_type);
export_proto(smaxloc2_8_s1);
GFC_INTEGER_8
......
libgfortran/generated/maxloc2_8_s4.c
......@@ -141,7 +141,7 @@ mmaxloc2_8_s4 (gfc_array_s4 * const restrict array,
}
extern GFC_INTEGER_8 smaxloc2_8_s4 (gfc_array_s4 * const restrict,
GFC_LOGICAL_4 *mask, int);
GFC_LOGICAL_4 *mask, gfc_charlen_type);
export_proto(smaxloc2_8_s4);
GFC_INTEGER_8
......
libgfortran/generated/minloc2_16_s1.c
......@@ -73,7 +73,7 @@ minloc2_16_s1 (gfc_array_s1 * const restrict array, gfc_charlen_type len)
}
extern GFC_INTEGER_16 mminloc2_16_s1 (gfc_array_s1 * const restrict,
gfc_array_l1 *const restrict mask, int);
gfc_array_l1 *const restrict mask, gfc_charlen_type);
export_proto(mminloc2_16_s1);
GFC_INTEGER_16
......
libgfortran/generated/minloc2_16_s4.c
......@@ -73,7 +73,7 @@ minloc2_16_s4 (gfc_array_s4 * const restrict array, gfc_charlen_type len)
}
extern GFC_INTEGER_16 mminloc2_16_s4 (gfc_array_s4 * const restrict,
gfc_array_l1 *const restrict mask, int);
gfc_array_l1 *const restrict mask, gfc_charlen_type);
export_proto(mminloc2_16_s4);
GFC_INTEGER_16
......
libgfortran/generated/minloc2_4_s1.c
......@@ -73,7 +73,7 @@ minloc2_4_s1 (gfc_array_s1 * const restrict array, gfc_charlen_type len)
}
extern GFC_INTEGER_4 mminloc2_4_s1 (gfc_array_s1 * const restrict,
gfc_array_l1 *const restrict mask, int);
gfc_array_l1 *const restrict mask, gfc_charlen_type);
export_proto(mminloc2_4_s1);
GFC_INTEGER_4
......
libgfortran/generated/minloc2_4_s4.c
......@@ -73,7 +73,7 @@ minloc2_4_s4 (gfc_array_s4 * const restrict array, gfc_charlen_type len)
}
extern GFC_INTEGER_4 mminloc2_4_s4 (gfc_array_s4 * const restrict,
gfc_array_l1 *const restrict mask, int);
gfc_array_l1 *const restrict mask, gfc_charlen_type);
export_proto(mminloc2_4_s4);
GFC_INTEGER_4
......
libgfortran/generated/minloc2_8_s1.c
......@@ -73,7 +73,7 @@ minloc2_8_s1 (gfc_array_s1 * const restrict array, gfc_charlen_type len)
}
extern GFC_INTEGER_8 mminloc2_8_s1 (gfc_array_s1 * const restrict,
gfc_array_l1 *const restrict mask, int);
gfc_array_l1 *const restrict mask, gfc_charlen_type);
export_proto(mminloc2_8_s1);
GFC_INTEGER_8
......
libgfortran/generated/minloc2_8_s4.c
......@@ -73,7 +73,7 @@ minloc2_8_s4 (gfc_array_s4 * const restrict array, gfc_charlen_type len)
}
extern GFC_INTEGER_8 mminloc2_8_s4 (gfc_array_s4 * const restrict,
gfc_array_l1 *const restrict mask, int);
gfc_array_l1 *const restrict mask, gfc_charlen_type);
export_proto(mminloc2_8_s4);
GFC_INTEGER_8
......
libgfortran/m4/maxloc2s.m4
......@@ -142,7 +142,7 @@ m'name`'rtype_qual`_'atype_code` ('atype` * const restrict array,
}
extern 'rtype_name` s'name`'rtype_qual`_'atype_code` ('atype` * const restrict,
GFC_LOGICAL_4 *mask, int);
GFC_LOGICAL_4 *mask, gfc_charlen_type);
export_proto(s'name`'rtype_qual`_'atype_code`);
'rtype_name`
......
libgfortran/m4/minloc2s.m4
......@@ -74,7 +74,7 @@ export_proto('name`'rtype_qual`_'atype_code`);
}
extern 'rtype_name` m'name`'rtype_qual`_'atype_code` ('atype` * const restrict,
gfc_array_l1 *const restrict mask, int);
gfc_array_l1 *const restrict mask, gfc_charlen_type);
export_proto(m'name`'rtype_qual`_'atype_code`);
'rtype_name`
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment