diff options
| author | Kai Tietz <kai.tietz@onevision.com> | 2010-03-12 14:43:55 +0000 |
|---|---|---|
| committer | Kai Tietz <ktietz@gcc.gnu.org> | 2010-03-12 15:43:55 +0100 |
| commit | b2ef02df5312169ffd4b0cfce00de2e01a5ff508 (patch) | |
| tree | 4c823eebd30675c99c57be8a6a26ad168277e417 /libgfortran/io | |
| parent | 6ac0538d37b0a4d0574bff858693dd34b76e9934 (diff) | |
| download | gcc-b2ef02df5312169ffd4b0cfce00de2e01a5ff508.zip gcc-b2ef02df5312169ffd4b0cfce00de2e01a5ff508.tar.gz gcc-b2ef02df5312169ffd4b0cfce00de2e01a5ff508.tar.bz2 | |
format.c (parse_format_list): Add to ERROR, WARNING, SILENT enumerators NOTIFICATION_ prefix.
2010-03-12 Kai Tietz <kai.tietz@onevision.com>
PR/42950
* io/format.c (parse_format_list): Add to ERROR, WARNING,
SILENT enumerators NOTIFICATION_ prefix.
* runtime/error.c (notification_std): Likewise.
* libgfortran.h (notification): Likewise.
(GFC_LARGEST_BUF): Check for HAVE_GFC_INTEGER_16.
From-SVN: r157407
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/format.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 68b9e99..461b179 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -863,7 +863,7 @@ parse_format_list (st_parameter_dt *dtp, bool *save_ok) t = format_lex (fmt); if (t != FMT_POSINT) { - if (notification_std(GFC_STD_GNU) == ERROR) + if (notification_std(GFC_STD_GNU) == NOTIFICATION_ERROR) { fmt->error = posint_required; goto finished; @@ -912,7 +912,7 @@ parse_format_list (st_parameter_dt *dtp, bool *save_ok) u = format_lex (fmt); if (t == FMT_G && u == FMT_ZERO) { - if (notification_std (GFC_STD_F2008) == ERROR + if (notification_std (GFC_STD_F2008) == NOTIFICATION_ERROR || dtp->u.p.mode == READING) { fmt->error = zero_width; |