bad.def (FFEBAD_OPEN_UNSUPPORTED, [...]): Change these from warnings to errors.

Tue May 19 14:52:41 1998  Craig Burley  <burley@gnu.org>
        * bad.def (FFEBAD_OPEN_UNSUPPORTED, FFEBAD_INQUIRE_UNSUPPORTED,
        FFEBAD_READ_UNSUPPORTED, FFEBAD_WRITE_UNSUPPORTED,
        FFEBAD_QUAD_UNSUPPORTED, FFEBAD_BLOCKDATA_STMT,
        FFEBAD_TRUNCATING_CHARACTER, FFEBAD_TRUNCATING_HOLLERITH,
        FFEBAD_TRUNCATING_NUMERIC, FFEBAD_TRUNCATING_TYPELESS,
        FFEBAD_TYPELESS_OVERFLOW): Change these from warnings
        to errors.

From-SVN: r20015

diff --git a/gcc/f/bad.def b/gcc/f/bad.def
index 89b7465fe64332c2cc9ba4a78b5f9bb25ffbbd93..3a86a1f1ffc4a345c6929f441a2be69ecccaf33c 100644 (file)
--- a/gcc/f/bad.def
+++ b/gcc/f/bad.def
@@ -698,6 +698,8 @@ FFEBAD_MSGS1 (FFEBAD_FILEWIDE_ARG_W, WARN,
 "Argument #%B of `%A' is %C at %0 but is %D at %1 [info -f g77 M GLOBALS]")
 FFEBAD_MSGS1 (FFEBAD_ARRAY_LARGE, FATAL,
 "Array `%A' at %0 is too large to handle")
+FFEBAD_MSGS1 (FFEBAD_SFUNC_UNUSED, WARN,
+"Statement function `%A' defined at %0 is not used")
 
 #undef INFORM
 #undef TRIVIAL