diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-26 12:37:42 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-26 12:37:42 +0000 |
| commit | ed019753cb56d0f1b770bcb386e840c9785949d5 (patch) | |
| tree | f1c84026400bff374b6122e5c8ae844e7d2a18ad /libgfortran/m4 | |
| parent | 485adf79b5e5fa8808fdca1dbc2e818902dfa081 (diff) | |
| download | gcc-ed019753cb56d0f1b770bcb386e840c9785949d5.zip gcc-ed019753cb56d0f1b770bcb386e840c9785949d5.tar.gz gcc-ed019753cb56d0f1b770bcb386e840c9785949d5.tar.bz2 | |
re PR fortran/29600 ([F03] MINLOC and MAXLOC take an optional KIND argument)
PR fortran/29600
* Makefile.am: Add generated/shape_i{1,2}.c
* Makefile.in: Regenerate.
* generated/shape_i1.c: New generated file.
* generated/shape_i2.c: New generated file.
* generated/shape_i4.c: Regenerate.
* generated/shape_i8.c: Regenerate.
* generated/shape_i16.c: Regenerate.
* gfortran.map (GFORTRAN_1.7): Add _gfortran_shape_{1,2}.
* m4/shape.m4: Fix parameter type.
* gfortran.dg/shape_8.f90: New test.
From-SVN: r227210
Diffstat (limited to 'libgfortran/m4')
| -rw-r--r-- | libgfortran/m4/shape.m4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/m4/shape.m4 b/libgfortran/m4/shape.m4 index ffdcebe..e389d92 100644 --- a/libgfortran/m4/shape.m4 +++ b/libgfortran/m4/shape.m4 @@ -32,12 +32,12 @@ include(iparm.m4)dnl `#if defined (HAVE_'rtype_name`) extern void shape_'rtype_kind` ('rtype` * const restrict ret, - const 'rtype` * const restrict array); + const array_t * const restrict array); export_proto(shape_'rtype_kind`); void shape_'rtype_kind` ('rtype` * const restrict ret, - const 'rtype` * const restrict array) + const array_t * const restrict array) { int n; index_type stride; |