diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 6034810..57a1bf3 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 4cf14b2..74ce1ba 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 |