re PR fortran/44491 (Diagnostic just shows "<During initialization>" instead of a...

2018-06-12  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/44491
	* expr.c (gfc_check_assign): Select non-NULL locus.

2018-06-12  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/44491
	* gfortran.dg/pr44491.f90: New testcase

From-SVN: r261516

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8a0b5ac6264b3c8cc8b46775aa4cafdd78f43b52..46498a30c7f564d9b05a28e4c527481be0815d41 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2018-06-12  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       PR fortran/44491
+       * expr.c (gfc_check_assign): Select non-NULL locus.
+
 2018-06-11  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/45521

diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index e6ab82272f10270a4fd0dd7ab9bfeb5a33547b6b..a1336d27859deaae2b677fa7f2f57aa2e5a9777e 100644 (file)
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -3414,6 +3414,8 @@ gfc_check_assign (gfc_expr *lvalue, gfc_expr *rvalue, int conform,
   /* Only DATA Statements come here.  */
   if (!conform)
     {
+      locus *where;
+
       /* Numeric can be converted to any other numeric. And Hollerith can be
         converted to any other type.  */
       if ((gfc_numeric_ts (&lvalue->ts) && gfc_numeric_ts (&rvalue->ts))
@@ -3423,8 +3425,9 @@ gfc_check_assign (gfc_expr *lvalue, gfc_expr *rvalue, int conform,
       if (lvalue->ts.type == BT_LOGICAL && rvalue->ts.type == BT_LOGICAL)
        return true;
 
+      where = lvalue->where.lb ? &lvalue->where : &rvalue->where;
       gfc_error ("Incompatible types in DATA statement at %L; attempted "
-                "conversion of %s to %s", &lvalue->where,
+                "conversion of %s to %s", where,
                 gfc_typename (&rvalue->ts), gfc_typename (&lvalue->ts));
 
       return false;

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f9c8d93d3d352d0ad9713f4bbce90e6b47291bfb..f009f2b476898eb41e1dc579964d999387af397e 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2018-06-12  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       PR fortran/44491
+       * gfortran.dg/pr44491.f90: New testcase
+
 2018-06-12  Martin Sebor  <msebor@redhat.com>
 
        PR c/85931

diff --git a/gcc/testsuite/gfortran.dg/pr44491.f90 b/gcc/testsuite/gfortran.dg/pr44491.f90
new file mode 100644 (file)
index 0000000..406bb26
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr44491.f90
@@ -0,0 +1,5 @@
+! { dg-do compile }
+! { dg-options "-std=gnu" }
+! PR fortran/44491
+      character*2 escape /z'1B'/  ! { dg-error "Incompatible types in DATA" }
+      end