diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 60348106696..57a1bf30c2d 100644
--- 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  Hans-Peter Nilsson  <hp@axis.com>
 
 	* lib/target-supports.exp (check_effective_target_hard_float): Only
diff --git a/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90 b/gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
index 4cf14b26731..74ce1ba6ad3 100644
--- 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