diff options
Diffstat (limited to 'gcc/fortran/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 7777f05a410..34619ab27df 100644 --- a/gcc/fortran/io.c +++ b/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; } } |