#include <assert.h>
#include "libgfortran.h"
+extern void __shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array);
+export_proto_np(__shape_8);
+
void
__shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array)
{
array->dim[n].ubound + 1 - array->dim[n].lbound;
}
}
-