Changes from Craig. See ChangeLog for details.

From-SVN: r19217

gcc/f/ChangeLog

+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.

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

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)

gcc/f/news.texi

@@ -33,6 +33,14 @@ New features
 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
 
 @item

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;