diff options
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 122ba38..6abc924 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -477,7 +477,7 @@ gfc_int_expr (int i) p->ts.type = BT_INTEGER; p->ts.kind = gfc_default_integer_kind (); - p->where = *gfc_current_locus (); + p->where = gfc_current_locus; mpz_init_set_si (p->value.integer, i); return p; @@ -498,7 +498,7 @@ gfc_logical_expr (int i, locus * where) p->ts.kind = gfc_default_logical_kind (); if (where == NULL) - where = gfc_current_locus (); + where = &gfc_current_locus; p->where = *where; p->value.logical = i; |