+2008-02-19 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/35030
+ * expr.c (gfc_check_pointer_assign): Add type and kind information
+ to type-mismatch message.
+ (gfc_check_assign): Unify error messages.
+
2008-02-16 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/34952
2008-02-10 Daniel Franke <franke.daniel@gmail.com>
- fortran/PR35019
+ PR fortran/35019
* lang.opt: Allow '-J<dir>' next to '-J <dir>',
likewise '-I <dir>' and '-I<dir>'.
if (lvalue->ts.type == BT_LOGICAL && rvalue->ts.type == BT_LOGICAL)
return SUCCESS;
- gfc_error ("Incompatible types in assignment at %L, %s to %s",
- &rvalue->where, gfc_typename (&rvalue->ts),
+ gfc_error ("Incompatible types in assignment at %L; attempted assignment "
+ "of %s to %s", &rvalue->where, gfc_typename (&rvalue->ts),
gfc_typename (&lvalue->ts));
return FAILURE;
if (!gfc_compare_types (&lvalue->ts, &rvalue->ts))
{
- gfc_error ("Different types in pointer assignment at %L",
- &lvalue->where);
+ gfc_error ("Different types in pointer assignment at %L; attempted "
+ "assignment of %s to %s", &lvalue->where,
+ gfc_typename (&rvalue->ts), gfc_typename (&lvalue->ts));
return FAILURE;
}