diff options
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index b39aed9..3884c01 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -553,6 +553,7 @@ gfc_conv_cst_int_power (gfc_se * se, tree lhs, tree rhs) static void gfc_conv_power_op (gfc_se * se, gfc_expr * expr) { + tree gfc_int4_type_node; int kind; int ikind; gfc_se lse; @@ -573,6 +574,8 @@ gfc_conv_power_op (gfc_se * se, gfc_expr * expr) if (gfc_conv_cst_int_power (se, lse.expr, rse.expr)) return; + gfc_int4_type_node = gfc_get_int_type (4); + kind = expr->op1->ts.kind; switch (expr->op2->ts.type) { |