diff options
author | Janne Blomqvist <jb@gcc.gnu.org> | 2017-11-24 10:51:15 +0200 |
---|---|---|
committer | Janne Blomqvist <jb@gcc.gnu.org> | 2017-11-24 10:51:15 +0200 |
commit | 97e1c8786bdb4e54520d9135f8ec378237872dbb (patch) | |
tree | e6f4c4bb19a6c6ad715fef1af4046d7869037b07 /libgfortran/m4 | |
parent | 96281645bdaeb0e7fb5f7340c47f60a2dbc800b2 (diff) |
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
Diffstat (limited to 'libgfortran/m4')
-rw-r--r-- | libgfortran/m4/maxloc2s.m4 | 2 | ||||
-rw-r--r-- | libgfortran/m4/minloc2s.m4 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/m4/maxloc2s.m4 b/libgfortran/m4/maxloc2s.m4 index 8cfca6aab67..f2a061c8c03 100644 --- a/libgfortran/m4/maxloc2s.m4 +++ b/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` diff --git a/libgfortran/m4/minloc2s.m4 b/libgfortran/m4/minloc2s.m4 index 8e99ed3cb5c..b9a7fb65fcd 100644 --- a/libgfortran/m4/minloc2s.m4 +++ b/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` |