diff options
| author | Feng Wang <fengwang@nudt.edu.cn> | 2005-06-01 03:44:43 +0000 |
|---|---|---|
| committer | Feng Wang <fengwang@gcc.gnu.org> | 2005-06-01 03:44:43 +0000 |
| commit | bf3ddf8a1f39e6c7cbf18535b184b077b3dd41be (patch) | |
| tree | 1bb734c2296915e4239eef9ee7d794c2ab9daa25 /gcc/fortran/io.c | |
| parent | 5d1dcb0e09a70edf1e3f6a5bd70a0e97d8c4ea2d (diff) | |
| download | gcc-bf3ddf8a1f39e6c7cbf18535b184b077b3dd41be.zip gcc-bf3ddf8a1f39e6c7cbf18535b184b077b3dd41be.tar.gz gcc-bf3ddf8a1f39e6c7cbf18535b184b077b3dd41be.tar.bz2 | |
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
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 7777f05..34619ab 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; } } |