where_operator_assign_4.f90: Fix typo in error message to match.

2008-02-04  Daniel Franke  <franke.daniel@gmail.com>

        * gfortran.dg/where_operator_assign_4.f90: Fix typo in error message
        to match.

From-SVN: r132103

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a7f3ba0e4f12ae1f18287c803d895ab4afc39b19..e3c1670106c72b3a2c755886983cc0e4b932f270 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-04  Daniel Franke  <franke.daniel@gmail.com>
+
+       * gfortran.dg/where_operator_assign_4.f90: Fix typo in error message
+       to match.
+
 2008-02-04  Richard Guenther  <rguenther@suse.de>
 
        PR middle-end/33631

diff --git a/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90 b/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
index 4cf14b267315b28a450615da8c7aa420a38c1eea..74ce1ba6ad393a85d7aafb89858f4d8cf25bf25d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
+++ b/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
@@ -22,9 +22,9 @@ USE M1
 TYPE(T1) :: I(2),J(2)
 I(:)%I=1
 WHERE (I(:)%I>0)
- J=I                       ! { dg-error "Non-ELEMETAL user-defined assignment in WHERE" }
+ J=I                       ! { dg-error "Non-ELEMENTAL user-defined assignment in WHERE" }
 END WHERE
 
-WHERE (I(:)%I>0) J=I       ! { dg-error "Non-ELEMETAL user-defined assignment in WHERE" }
+WHERE (I(:)%I>0) J=I       ! { dg-error "Non-ELEMENTAL user-defined assignment in WHERE" }
 
 END