aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/m4/shape.m4
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/m4/shape.m4')
-rw-r--r--libgfortran/m4/shape.m46
1 files changed, 1 insertions, 5 deletions
diff --git a/libgfortran/m4/shape.m4 b/libgfortran/m4/shape.m4
index 826077e..6c58658 100644
--- a/libgfortran/m4/shape.m4
+++ b/libgfortran/m4/shape.m4
@@ -23,11 +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, `_i\([0-9]+\)\.', `\1'))dnl
-define(rtype_code,`i'rtype_name)dnl
-define(rtype,get_arraytype(i,rtype_kind))dnl
-define(rtype_name, get_typename(i, rtype_kind))dnl
+include(iparm.m4)dnl
void
`__shape_'rtype_kind (rtype * ret, const rtype * array)