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: r261520

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ff1449d37032c0a16062655a17744864d503fb53..36fa112491be19fecb4860c73bab130468266a43 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-09  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/38351

diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index e890c4b2861a127d2cac56b5f76eeb4f40eaf1e5..0d553c0bea2e13d60d0d4b6c52dd2fa64840dd49 100644 (file)
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -3288,6 +3288,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))
@@ -3297,8 +3299,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 7909bf5805476dd29e5621ea50ce8975ac740fa3..aed39d9624408cba03011729c5b29075438aa67d 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-11  Peter Bergner  <bergner@vnet.ibm.com>
 
        Backport from mainline

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