From eb950bf834c56ca0cb28286847335768ddd77534 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 6 Nov 2016 21:27:32 +0000 Subject: [PATCH] re PR fortran/78226 (Fill out location information everywhere) 2016-11-06 Thomas Koenig PR fortran/78226 resolve.c (build_loc_call): Add location to return value. From-SVN: r241887 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/resolve.c | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ec91b1fd785..f235ab23275 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2016-11-06 Thomas Koenig + + PR fortran/78226 + resolve.c (build_loc_call): Add location to return value. + 2016-11-06 Andre Vehreschild * expr.c (is_non_empty_structure_constructor): New function to detect diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 9620ce67a0f..77253713a00 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -8457,6 +8457,7 @@ build_loc_call (gfc_expr *sym_expr) loc_call->value.function.isym = gfc_intrinsic_function_by_id (GFC_ISYM_LOC); loc_call->value.function.actual = gfc_get_actual_arglist (); loc_call->value.function.actual->expr = sym_expr; + loc_call->where = sym_expr->where; return loc_call; } -- 2.30.2