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

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

	PR fortran/78826
	* match.c (gfc_match_select_type):  Add where for expr1.
	* resolve.c (resolev_select_type): Add where for expr1 of new
	statement.

From-SVN: r241909

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f235ab2327555a70f86546330a8383ce4816a024..346592e93cd7b0fbaefd04a205fa2105cf25884f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+2016-11-07  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/78826
+       * match.c (gfc_match_select_type):  Add where for expr1.
+       * resolve.c (resolev_select_type): Add where for expr1 of new
+       statement.
+
 2016-11-06  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/78226

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index 40566f64a2841969a97b449f245e59be7cc253ac..5a7451ec9c48edec765bfbc2f4195c6bbf96c0b6 100644 (file)
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -5898,6 +5898,7 @@ gfc_match_select_type (void)
     {
       expr1 = gfc_get_expr ();
       expr1->expr_type = EXPR_VARIABLE;
+      expr1->where = expr2->where;
       if (gfc_get_sym_tree (name, NULL, &expr1->symtree, false))
        {
          m = MATCH_ERROR;

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 77253713a00121bfa10aa905b26c3fe27b85349c..f4b1283d935f6047ce5c615e80d0fdeced462d85 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -8857,6 +8857,7 @@ resolve_select_type (gfc_code *code, gfc_namespace *old_ns)
          new_st->expr1->value.function.actual = gfc_get_actual_arglist ();
          new_st->expr1->value.function.actual->expr = gfc_get_variable_expr (selector_expr->symtree);
          new_st->expr1->value.function.actual->expr->where = code->loc;
+         new_st->expr1->where = code->loc;
          gfc_add_vptr_component (new_st->expr1->value.function.actual->expr);
          vtab = gfc_find_derived_vtab (body->ext.block.case_list->ts.u.derived);
          st = gfc_find_symtree (vtab->ns->sym_root, vtab->name);