OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

resolve.c (resolve_ordinary_assign): Improve error wording.

Browse Source 
2012-01-10  Tobias Burnus  <burnus@net-b.de>

        * resolve.c (resolve_ordinary_assign): Improve error wording.

2012-01-10  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/class_39.f03: Update dg-error string.

From-SVN: r183056
This commit is contained in:
Tobias Burnus 2012-01-10 10:31:31 +01:00 committed by Tobias Burnus
parent 390b24dcc5
commit fa8df9de51
4 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2012-01-10 Tobias Burnus <burnus@net-b.de>
* resolve.c (resolve_ordinary_assign): Improve error wording.
2012-01-09 Paul Thomas <pault@gcc.gnu.org> 2012-01-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/51791 PR fortran/51791

4
gcc/fortran/resolve.c
View File

@ -9208,8 +9208,8 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns)
and coindexed; cf. F2008, 7.2.1.2 and PR 43366. */ and coindexed; cf. F2008, 7.2.1.2 and PR 43366. */
if (lhs->ts.type == BT_CLASS) if (lhs->ts.type == BT_CLASS)
{ {
gfc_error ("Variable must not be polymorphic in assignment at %L " gfc_error ("Variable must not be polymorphic in intrinsic assignment at "
"- check that there is a matching specific subroutine " "%L - check that there is a matching specific subroutine "
"for '=' operator", &lhs->where); "for '=' operator", &lhs->where);
return false; return false;
} }

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2012-01-10 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/class_39.f03: Update dg-error string.
2012-01-10 Richard Guenther <rguenther@suse.de> 2012-01-10 Richard Guenther <rguenther@suse.de>
PR tree-optimization/50913 PR tree-optimization/50913

2
gcc/testsuite/gfortran.dg/class_39.f03
View File

@ -8,6 +8,6 @@
end type T end type T
contains contains
class(T) function add() ! { dg-error "must be dummy, allocatable or pointer" } class(T) function add() ! { dg-error "must be dummy, allocatable or pointer" }
add = 1 ! { dg-error "Variable must not be polymorphic in assignment" } add = 1 ! { dg-error "Variable must not be polymorphic in intrinsic assignment" }
end function end function
end end