OSDN Git Service

2012-01-10 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 10 Jan 2012 09:31:31 +0000 (09:31 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 10 Jan 2012 09:31:31 +0000 (09:31 +0000)
        * 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183056 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/resolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/class_39.f03

index d4e968e..bc9abc1 100644 (file)
@@ -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
 2012-01-09  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/51791
index c48e2b1..1c5fea3 100644 (file)
@@ -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)
     {
      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;
     }
                 "for '=' operator", &lhs->where);
       return false;
     }
index 02e8b55..a6df9b0 100644 (file)
@@ -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
 2012-01-10  Richard Guenther  <rguenther@suse.de>
 
        PR tree-optimization/50913
index bc8039f..6fe762b 100644 (file)
@@ -8,6 +8,6 @@
   end type T
 contains
   class(T) function add()  ! { dg-error "must be dummy, allocatable or pointer" }
   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
   end function
 end