summaryrefslogtreecommitdiff
path: root/libgfortran/m4/in_unpack.m4
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/m4/in_unpack.m4')
-rw-r--r--libgfortran/m4/in_unpack.m47
1 files changed, 1 insertions, 6 deletions
diff --git a/libgfortran/m4/in_unpack.m4 b/libgfortran/m4/in_unpack.m4
index fe344ca7d31..fa6f6be7d33 100644
--- a/libgfortran/m4/in_unpack.m4
+++ b/libgfortran/m4/in_unpack.m4
@@ -24,12 +24,7 @@ Boston, MA 02111-1307, USA. */
#include <assert.h>
#include <string.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
dnl Only the kind (ie size) is used to name the function.
void