Changes from Craig. See ChangeLog for details.

From-SVN: r19217

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 5fc7f88111d264ec22d86de4adb27262f28e9cc0..302f88ed913187dc0d14e50ce2208966a060462e 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,13 @@
+Tue Apr 14 14:40:40 1998  Craig Burley  <burley@gnu.org>
+
+       * com.c (ffecom_start_progunit_): Mark function decl
+       as used, to avoid spurious warning (-Wunused) for ENTRY.
+
+Tue Apr 14 14:19:34 1998  Craig Burley  <burley@gnu.org>
+
+       * sta.c (ffesta_second_): Check for CASE DEFAULT
+       as well as CASE, or it won't be recognized.
+
 Mon Mar 23 11:58:43 1998  Craig Burley  <burley@gnu.org>
 
        * bugs.texi: Various updates.

diff --git a/gcc/f/bugs.texi b/gcc/f/bugs.texi
index d44ecdb2f8d7aecef319b8b4308189b536d2d652..d6370f99a49ca35097825c5337bc9389d626b3a9 100644 (file)
--- a/gcc/f/bugs.texi
+++ b/gcc/f/bugs.texi
@@ -5,7 +5,7 @@
 @c The text of this file appears in the file BUGS
 @c in the G77 distribution, as well as in the G77 manual.
 
-@c 1998-03-15
+@c 1998-03-17
 
 @ifclear BUGSONLY
 @node Actual Bugs
@@ -192,8 +192,8 @@ END
 @end example
 
 It is expected that a future version of @code{g77} will have a fix for this
-problem, almost certainly by the time @code{g77} supports the forthcoming
-version 2.8.0 of @code{gcc}.
+problem, almost certainly by the time @code{g77} supports
+version 2.8 of @code{gcc}.
 
 @cindex COMPLEX support
 @cindex support, COMPLEX

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 282a294b67996687fc8afeda37a57b56969594c1..1f58370ad8d94a2f1594702f8b91ebd840ff6dd1 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -7867,6 +7867,8 @@ ffecom_start_progunit_ ()
                  0,            /* nested/inline */
                  !altentries); /* TREE_PUBLIC */
 
+  TREE_USED (current_function_decl) = 1;       /* Avoid spurious warning if altentries. */
+
   if (!altentries
       && ((g = ffesymbol_global (fn)) != NULL)
       && ((ffeglobal_type (g) == gt)

diff --git a/gcc/f/news.texi b/gcc/f/news.texi
index 00c7c5cea7c91aa6db35443ffb1c8173533be84a..7c3411a6d2deba11c32f90cb8a45a32b18c90598 100644 (file)
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -32,6 +32,14 @@ New features
 @item
 Fixes and enhancements to existing features
 
+@item
+@code{CASE DEFAULT} no longer crashes @code{g77}.
+
+@item
+The @samp{-Wunused} option no longer issues a spurious
+warning about the ``master'' procedure generated by
+@code{g77} for procedures containing @code{ENTRY} statements.
+
 @item
 New diagnostics
 

diff --git a/gcc/f/sta.c b/gcc/f/sta.c
index 281ca9361333b1067b0e60005139733a894821dd..c7bd664f3deae557a71008296722f235a87ad77f 100644 (file)
--- a/gcc/f/sta.c
+++ b/gcc/f/sta.c
@@ -644,6 +644,7 @@ ffesta_second_ (ffelexToken t)
       break;
 
     case FFESTR_firstCASE:
+    case FFESTR_firstCASEDEFAULT:
       ffesta_add_possible_exec_ ((ffelexHandler) ffestb_R810);
       break;