summaryrefslogtreecommitdiff
path: root/libgfortran/m4/reshape.m4
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/m4/reshape.m4')
-rw-r--r--libgfortran/m4/reshape.m47
1 files changed, 1 insertions, 6 deletions
diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4
index b8143fe24af..7400f31ad76 100644
--- a/libgfortran/m4/reshape.m4
+++ b/libgfortran/m4/reshape.m4
@@ -23,12 +23,7 @@ Boston, MA 02111-1307, USA. */
#include <stdlib.h>
#include <assert.h>
#include "libgfortran.h"'
-include(types.m4)dnl
-define(rtype_kind, regexp(file, `_.\([0-9]+\)\.', `\1'))dnl
-define(rtype_letter, regexp(file, `_\(.\)[0-9]+\.', `\1'))dnl
-define(rtype_code,rtype_letter`'rtype_name)dnl
-define(rtype,get_arraytype(rtype_letter,rtype_kind))dnl
-define(rtype_name, get_typename(rtype_letter, rtype_kind))dnl
+include(iparm.m4)dnl
typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;