diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-18 20:24:32 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-18 20:24:32 +0000 |
| commit | 1b1197a3a32c4ab335b02c03543e21dd0f9558c6 (patch) | |
| tree | a66bc7623de0b253a4f3ae529a58a4948e04f604 /libgfortran/m4/reshape.m4 | |
| parent | d468906b53914096be0a460c362ddfa820631963 (diff) | |
| download | gcc-1b1197a3a32c4ab335b02c03543e21dd0f9558c6.tar.gz | |
2005-05-18 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/21127
* Makefile.am: Add generated/reshape_c4.c and
generated/reshape_c8.c.
* Makefile.in: Regenerated.
* m4/iparm.m4: Define rtype_ccode to be c4 or c8 for
complex types, 4 or 8 otherwise.
* m4/reshape.m4: Use rtype_ccode instead of rtype_kind
in function name.
* generated/reshape_c4.c: New file.
* generated/reshape_c8.c: New file.
2005-05-18 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/21127
* fortran/iresolve.c (gfc_resolve_reshape): Add
gfc_type_letter (BT_COMPLEX) for complex to
to resolved function name.
2005-05-18 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/21127
* gfortran.dg/reshape-complex.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99925 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/m4/reshape.m4')
| -rw-r--r-- | libgfortran/m4/reshape.m4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4 index 541377f01c5..6b411f001ad 100644 --- a/libgfortran/m4/reshape.m4 +++ b/libgfortran/m4/reshape.m4 @@ -40,12 +40,12 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; return array. */ dnl Only the kind (ie size) is used to name the function. -extern void reshape_`'rtype_kind (rtype *, rtype *, shape_type *, +extern void reshape_`'rtype_ccode (rtype *, rtype *, shape_type *, rtype *, shape_type *); -export_proto(reshape_`'rtype_kind); +export_proto(reshape_`'rtype_ccode); void -reshape_`'rtype_kind (rtype * ret, rtype * source, shape_type * shape, +reshape_`'rtype_ccode (rtype * ret, rtype * source, shape_type * shape, rtype * pad, shape_type * order) { /* r.* indicates the return array. */ |