resolve.c (resolve_ordinary_assign): Improve error wording.

2012-01-10  Tobias Burnus  <burnus@net-b.de>

        * resolve.c (resolve_ordinary_assign): Improve error wording.

2012-01-10  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/class_39.f03: Update dg-error string.

From-SVN: r183056

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d4e968e5bc53c7a0e3d9a5d1811f4b51e07502de..bc9abc1f1755d404abeedc6fc1c046dc00d1617c 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2012-01-10  Tobias Burnus  <burnus@net-b.de>
+
+       * resolve.c (resolve_ordinary_assign): Improve error wording.
+
 2012-01-09  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/51791

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index c48e2b19e658c448803d30626cbd710e1cf24c71..1c5fea3752c0d5be04909824c366bfba577df593 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -9208,8 +9208,8 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns)
      and coindexed; cf. F2008, 7.2.1.2 and PR 43366.  */
   if (lhs->ts.type == BT_CLASS)
     {
-      gfc_error ("Variable must not be polymorphic in assignment at %L "
-                "- check that there is a matching specific subroutine "
+      gfc_error ("Variable must not be polymorphic in intrinsic assignment at "
+                "%L - check that there is a matching specific subroutine "
                 "for '=' operator", &lhs->where);
       return false;
     }

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 02e8b55f75881530e9a9276e48bba905f718bb27..a6df9b0fc3331bdfbaf4d135768963c9e3efd274 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2012-01-10  Tobias Burnus  <burnus@net-b.de>
+
+       * gfortran.dg/class_39.f03: Update dg-error string.
+
 2012-01-10  Richard Guenther  <rguenther@suse.de>
 
        PR tree-optimization/50913

diff --git a/gcc/testsuite/gfortran.dg/class_39.f03 b/gcc/testsuite/gfortran.dg/class_39.f03
index bc8039fc0c522bc4e886a90b73198652d80f22e2..6fe762ba35d98420e9ba72a170bfd11b63568bf8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/class_39.f03
+++ b/gcc/testsuite/gfortran.dg/class_39.f03
@@ -8,6 +8,6 @@
   end type T
 contains
   class(T) function add()  ! { dg-error "must be dummy, allocatable or pointer" }
-    add = 1  ! { dg-error "Variable must not be polymorphic in assignment" }
+    add = 1  ! { dg-error "Variable must not be polymorphic in intrinsic assignment" }
   end function
 end