re PR fortran/78226 (Fill out location information everywhere)

2016-11-06  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/78226
	resolve.c (build_loc_call): Add location to return value.

From-SVN: r241887

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ec91b1fd7852179e7a79b1d534e9e0e9109ce8a2..f235ab2327555a70f86546330a8383ce4816a024 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2016-11-06  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/78226
+       resolve.c (build_loc_call): Add location to return value.
+
 2016-11-06  Andre Vehreschild  <vehre@gcc.gnu.org>
 
        * expr.c (is_non_empty_structure_constructor): New function to detect

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 9620ce67a0f2478656c4dee39886c94befc3a6d8..77253713a00121bfa10aa905b26c3fe27b85349c 100644 (file)
--- 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;
 }