Make-lang.in (sta.o-warn): Delete.

	* Make-lang.in (sta.o-warn): Delete.
        * sta.c (ffesta_save_): Don't break aliasing rules.

From-SVN: r78368

gcc/f/ChangeLog

+2004-02-24  Michael Matz  <matz@suse.de>
+
+	* Make-lang.in (sta.o-warn): Delete.
+	* sta.c (ffesta_save_): Don't break aliasing rules.
+
 2004-02-20  Kazu Hirata  <kazu@cs.umass.edu>
 
 	* Make-lang.in (g77spec.o): Depend on intl.h.

gcc/f/Make-lang.in

@@ -91,8 +91,6 @@ F77_OBJS = f/bad.o f/bit.o f/bld.o f/com.o f/data.o f/equiv.o f/expr.o \
 
 # Use loose warnings for this front end.
 f-warn = $(WERROR)
-# type-punning warning
-f/sta.o-warn = -Wno-error
 
 f771$(exeext): $(F77_OBJS) $(BACKEND) $(LIBDEPS)
 	rm -f f771$(exeext)

gcc/f/sta.c

@@ -335,7 +335,7 @@ ffesta_save_ (ffelexToken t)
     {				/* No handler in this list, try exec list if
 				   not tried yet. */
       if (ffesta_current_possible_
-	  == (ffestaPossible_) &ffesta_possible_nonexecs_)
+	  == (ffestaPossible_) &ffesta_possible_nonexecs_.first)
 	{
 	  ffesta_current_possible_ = ffesta_possible_execs_.first;
 	  ffesta_current_handler_ = ffesta_current_possible_->handler;
@@ -379,7 +379,7 @@ ffesta_save_ (ffelexToken t)
 		{
 		  if (possible->handler == NULL)
 		    {
-		      if (possible == (ffestaPossible_) &ffesta_possible_nonexecs_)
+		      if (possible == (ffestaPossible_) &ffesta_possible_nonexecs_.first)
 			{
 			  possible = first_exec = ffesta_possible_execs_.first;
 			  continue;