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
+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.
+
2010-03-11 Tobias Burnus <burnus@net-b.de>
PR fortran/43228
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;
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;
that were given (-std=, -pedantic) we should issue an error, a warning
or nothing. */
typedef enum
-{ SILENT, WARNING, ERROR }
+{ NOTIFICATION_SILENT, NOTIFICATION_WARNING, NOTIFICATION_ERROR }
notification;
/* This is returned by notify_std and several io functions. */
#if defined(HAVE_GFC_REAL_16)
#define GFC_LARGEST_BUF (sizeof (GFC_REAL_16))
+#elif defined(HAVE_GFC_INTEGER_16)
+#define GFC_LARGEST_BUF (sizeof (GFC_INTEGER_LARGEST))
#elif defined(HAVE_GFC_REAL_10)
#define GFC_LARGEST_BUF (sizeof (GFC_REAL_10))
#else
int warning;
if (!compile_options.pedantic)
- return SILENT;
+ return NOTIFICATION_SILENT;
warning = compile_options.warn_std & std;
if ((compile_options.allow_std & std) != 0 && !warning)
- return SILENT;
+ return NOTIFICATION_SILENT;
- return warning ? WARNING : ERROR;
+ return warning ? NOTIFICATION_WARNING : NOTIFICATION_ERROR;
}