From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sun, 6 Nov 2016 21:27:32 +0000 (+0000)
Subject: re PR fortran/78226 (Fill out location information everywhere)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=eb950bf834c56ca0cb28286847335768ddd77534;p=gcc.git

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 ec91b1fd785..f235ab23275 100644
--- 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 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;
 }