Fix DO WHILE

[craig@jcb-sc.com]

Committed.  (Fixes g77-f.torture/execute/19990419-1.f.)

        tq vm, (burley)


Mon Apr 19 21:36:48 1999  Craig Burley  <craig@jcb-sc.com>

	* ste.c (ffeste_R819B): Start the loop before expanding
	the termination expression.

	* version.c: Bump version.
  
*** g77-e/gcc/f/ste.c.~1~	Sat Apr 17 13:53:14 1999
--- g77-e/gcc/f/ste.c	Mon Apr 19 21:35:18 1999
*************** ffeste_R819B (ffestw block, ffelab label
*** 3097,3102 ****
--- 3097,3105 ----
      if (expr)
        {
+ 	tree loop;
+ 
  	result = ffecom_make_tempvar ("dowhile", integer_type_node,
  				      FFETARGET_charactersizeNONE, -1);
+ 	loop = expand_start_loop (1);
  
  	ffeste_start_stmt_ ();
*************** ffeste_R819B (ffestw block, ffelab label
*** 3113,3117 ****
  	ffeste_end_stmt_ ();
  
! 	ffestw_set_do_hook (block, expand_start_loop (1));
  	expand_exit_loop_if_false (0, result);
        }
--- 3116,3120 ----
  	ffeste_end_stmt_ ();
  
! 	ffestw_set_do_hook (block, loop);
  	expand_exit_loop_if_false (0, result);
        }
*** g77-e/gcc/f/version.c.~1~	Sun Apr 18 21:54:50 1999
--- g77-e/gcc/f/version.c	Tue Apr 20 00:29:11 1999
***************
*** 1 ****
! const char *ffe_version_string = "0.5.24-19990418";
--- 1 ----
! const char *ffe_version_string = "0.5.24-19990419";