2012-01-09 Tobias Burnus <burnus@net-b.de>
* resolve.c (resolve_ordinary_assign): Improve error wording.
2012-01-09 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/class_39.f03: Update dg-error string.
===================================================================
@@ -9208,8 +9223,8 @@ resolve_ordinary_assign (gfc_code *code, gfc_names
and coindexed; cf. F2008, 7.2.1.2 and PR 43366. */
if (lhs->ts.type == BT_CLASS)
{
- gfc_error ("Variable must not be polymorphic in assignment at %L "
- "- check that there is a matching specific subroutine "
+ gfc_error ("Variable must not be polymorphic in intrinsic assignment at "
+ "%L - check that there is a matching specific subroutine "
"for '=' operator", &lhs->where);
return false;
}
===================================================================
@@ -8,6 +8,6 @@
end type T
contains
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