re PR fortran/79599 (typo in diagnostic gfc_error ("DTIO dummy argument at %L be a scalar")

2017-02-20  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/79599
	* interface.c (check_dtio_arg_TKR_intent): Supply 'must'
	missing from error message.

2017-02-20  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/79523
	* interface.c (gfc_find_typebound_dtio_proc): Guard test for
	flavor attribute by checking that symbol is resolved.

From-SVN: r245603

gcc/fortran/ChangeLog

+2017-02-20  Paul Thomas  <pault@gcc.gnu.org>
+
+	PR fortran/79599
+	* interface.c (check_dtio_arg_TKR_intent): Supply 'must'
+	missing from error message.
+
+2017-02-20  Paul Thomas  <pault@gcc.gnu.org>
+
+	PR fortran/79523
+	* interface.c (gfc_find_typebound_dtio_proc): Guard test for
+	flavor attribute by checking that symbol is resolved.
+
 2017-02-16  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/79382

gcc/fortran/interface.c

@@ -4615,7 +4615,7 @@ check_dtio_arg_TKR_intent (gfc_symbol *fsym, bool typebound, bt type,
       && rank == 0
       && (((type == BT_CLASS) && CLASS_DATA (fsym)->attr.dimension)
 	  || ((type != BT_CLASS) && fsym->attr.dimension)))
-    gfc_error ("DTIO dummy argument at %L be a scalar",
+    gfc_error ("DTIO dummy argument at %L must be a scalar",
 	       &fsym->declared_at);
   else if (rank == 1
 	   && (fsym->as == NULL || fsym->as->type != AS_ASSUMED_SHAPE))
@@ -4829,7 +4829,7 @@ gfc_find_typebound_dtio_proc (gfc_symbol *derived, bool write, bool formatted)
   gfc_symtree *tb_io_st = NULL;
   bool t = false;
 
-  if (!derived || derived->attr.flavor != FL_DERIVED)
+  if (!derived || !derived->resolved || derived->attr.flavor != FL_DERIVED)
     return NULL;
 
   /* Try to find a typebound DTIO binding.  */