2010-09-23 Daniel Kraft <d@domob.eu>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / impure_assignment_3.f90

diff --git a/gcc/testsuite/gfortran.dg/impure_assignment_3.f90 b/gcc/testsuite/gfortran.dg/impure_assignment_3.f90
index 462ceb6..8be1989 100644 (file)
--- a/gcc/testsuite/gfortran.dg/impure_assignment_3.f90
+++ b/gcc/testsuite/gfortran.dg/impure_assignment_3.f90
@@ -20,7 +20,7 @@ contains
     class is (myType)
       x%a = 42.
       r3 =  43.
-      g = 44.             ! { dg-error "Cannot assign to variable" }
+      g = 44.             ! { dg-error "variable definition context" }
     end select
   end subroutine
 
@@ -30,7 +30,7 @@ contains
       real :: r2
       r1 = 45.
       r2 = 46.
-      g = 47.             ! { dg-error "Cannot assign to variable" }
+      g = 47.             ! { dg-error "variable definition context" }
     end block
   end subroutine