re PR fortran/20883 (unassigned integer used as format)

2005-06-01  Feng Wang  <fengwang@nudt.edu.cn>

        PR fortran/20883
        * fortran/io.c (resolve_tag): Fix error message.

2005-06-01  Feng Wang  <fengwang@nudt.edu.cn>

        PR fortran/20883
        * gfortran/assign_4.f90: New test.
        * gfortran/assign_2.f90: Change compile to run.

From-SVN: r100424

gcc/fortran/ChangeLog

+2005-06-01  Feng Wang  <fengwang@nudt.edu.cn>
+
+	PR fortran/20883
+	* fortran/io.c (resolve_tag): Fix error message.
+
 2005-05-31  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* fortran/trans-decl.c: Don't include errors.h.

gcc/fortran/io.c

@@ -974,8 +974,9 @@ resolve_tag (const io_tag * tag, gfc_expr * e)
       /* Format label can be integer varibale.  */
       if (tag != &tag_format || e->ts.type != BT_INTEGER)
         {
-          gfc_error ("%s tag at %L must be of type %s", tag->name, &e->where,
-		     gfc_basic_typename (tag->type));
+          gfc_error ("%s tag at %L must be of type %s or %s", tag->name,
+		&e->where, gfc_basic_typename (tag->type),
+		gfc_basic_typename (BT_INTEGER));
           return FAILURE;
         }
     }

gcc/testsuite/ChangeLog

+2005-06-01  Feng Wang  <fengwang@nudt.edu.cn>
+
+	PR fortran/20883
+	* gfortran/assign_4.f90: New test.
+	* gfortran/assign_2.f90: Change compile to run.
+
 2005-05-31  Geoffrey Keating  <geoffk@geoffk.org>
 
 	* lib/target-supports.exp 

gcc/testsuite/gfortran.dg/assign_2.f90

-! { dg-do compile }
+! { dg-do run }
 ! Option passed to avoid excess errors from obsolete warning
 ! { dg-options "-w" }
 ! PR18827

gcc/testsuite/gfortran.dg/assign_4.f90

+! { dg-do compile }
+! PR fortran/20883
+      write (*, a) b ! { dg-error "must be of type CHARACTER or INTEGER" }
+      end