re PR fortran/18023 (ice on trying to convert between int and float)

PR fortran/18023
* io.c (resolve_tag): Tighten up exception for assigned FORMAT.

From-SVN: r90169

gcc/fortran/ChangeLog

+2004-11-06  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	PR fortran/18023
+	* io.c (resolve_tag): Tighten up exception for assigned FORMAT.
+
 2004-11-06  Kazu Hirata  <kazu@cs.umass.edu>
 
 	* gfortranspec.c: Replace GNU CC with GCC.

gcc/fortran/io.c

@@ -968,10 +968,10 @@ resolve_tag (const io_tag * tag, gfc_expr * e)
   if (e->ts.type != tag->type)
     {
       /* Format label can be integer varibale.  */
-      if (tag != &tag_format)
+      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_basic_typename (tag->type));
           return FAILURE;
         }
     }