From e5327844beecdc39cea7696b4a8ba640d2f9a87c Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Mon, 4 Feb 2008 17:40:46 -0500 Subject: [PATCH] where_operator_assign_4.f90: Fix typo in error message to match. 2008-02-04 Daniel Franke * gfortran.dg/where_operator_assign_4.f90: Fix typo in error message to match. From-SVN: r132104 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/where_operator_assign_4.f90 | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * gfortran.dg/where_operator_assign_4.f90: Fix typo in error message + to match. + 2008-02-04 Hans-Peter Nilsson * 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 -- 2.30.2