------- Comment #2 from dfranke at gcc dot gnu dot org 2010-06-10 19:54 -------
This gives a proper locus:
Index: expr.c
===================================================================
--- expr.c (revision 160567)
+++ expr.c (working copy)
@@ -3203,7 +3203,7 @@ gfc_check_assign (gfc_expr *lvalue, gfc_
return SUCCESS;
gfc_error ("Incompatible types in DATA statement at %L; attempted "
- "conversion of %s to %s", &lvalue->where,
+ "conversion of %s to %s", &rvalue->where,
gfc_typename (&rvalue->ts), gfc_typename (&lvalue->ts));
return FAILURE;
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44491
