diff options
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index b01b8f6..8df23ed 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -450,7 +450,7 @@ add_case (int label_value, gfc_st_label * label, stmtblock_t * body) if (label == NULL) return; /* No label, no case */ - value = build_int_2 (label_value, 0); + value = build_int_cst (NULL_TREE, label_value, 0); /* Make a backend label for this case. */ tmp = build_decl (LABEL_DECL, NULL_TREE, NULL_TREE); @@ -523,7 +523,7 @@ set_error_locus (stmtblock_t * block, locus * where) gfc_add_modify_expr (block, locus_file, tmp); line = where->lb->linenum; - gfc_add_modify_expr (block, locus_line, build_int_2 (line, 0)); + gfc_add_modify_expr (block, locus_line, build_int_cst (NULL_TREE, line, 0)); } @@ -943,7 +943,7 @@ build_dt (tree * function, gfc_code * code) args = gfc_chainon_list (NULL_TREE, se.expr); args = gfc_chainon_list (args, se2.expr); args = gfc_chainon_list (args, se2.string_length); - arg2 = build_int_2 (ts_kind, 0); + arg2 = build_int_cst (NULL_TREE, ts_kind, 0); args = gfc_chainon_list (args,arg2); switch (ts_type) { @@ -1096,22 +1096,22 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr) switch (ts->type) { case BT_INTEGER: - arg2 = build_int_2 (kind, 0); + arg2 = build_int_cst (NULL_TREE, kind, 0); function = iocall_x_integer; break; case BT_REAL: - arg2 = build_int_2 (kind, 0); + arg2 = build_int_cst (NULL_TREE, kind, 0); function = iocall_x_real; break; case BT_COMPLEX: - arg2 = build_int_2 (kind, 0); + arg2 = build_int_cst (NULL_TREE, kind, 0); function = iocall_x_complex; break; case BT_LOGICAL: - arg2 = build_int_2 (kind, 0); + arg2 = build_int_cst (NULL_TREE, kind, 0); function = iocall_x_logical; break; |