diff options
| author | ktietz <ktietz@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-12 14:43:55 +0000 |
|---|---|---|
| committer | ktietz <ktietz@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-12 14:43:55 +0000 |
| commit | c08106d15df24e04d7f14da10f070500e359f1bc (patch) | |
| tree | 4c823eebd30675c99c57be8a6a26ad168277e417 /libgfortran/io | |
| parent | d241c92951950c144bfb6392afd06a8aa71d9f1a (diff) | |
| download | gcc-c08106d15df24e04d7f14da10f070500e359f1bc.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@157407 138bc75d-0d04-0410-961f-82ee72b054a4
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 68b9e992d6d..461b179e53a 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; |