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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 60348106696d12861699837c456324e97594ef56..57a1bf30c2d5efb9212e25b1211c6d28fa1c9942 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  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 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