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

gcc/testsuite/ChangeLog

+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  Hans-Peter Nilsson  <hp@axis.com>
 
 	* lib/target-supports.exp (check_effective_target_hard_float): Only

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