procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

where_operator_assign_4.f90: Fix typo in error message to match.

Browse source 
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
This commit is contained in:
Daniel Franke 2008-02-04 17:40:46 -05:00 • committed by Daniel Franke
parent ca8b555b1d
commit e5327844be
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -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

4
gcc/testsuite/gfortran.dg/where_operator_assign_4.f90
View file

@ -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