diff -rcp2N g77-0.5.11/README.g77 g77-0.5.12/README.g77
*** g77-0.5.11/README.g77	Thu Feb 23 04:39:36 1995
--- g77-0.5.12/README.g77	Thu Feb 23 13:33:50 1995
***************
*** 1,5 ****
! 950223
  
! This directory contains the version 0.5.11 release of the GNU Fortran
  compiler.  The GNU Fortran compiler is free software.  See the file
  COPYING.g77 for copying permission.
--- 1,5 ----
! 950224
  
! This directory contains the version 0.5.12 release of the GNU Fortran
  compiler.  The GNU Fortran compiler is free software.  See the file
  COPYING.g77 for copying permission.
diff -rcp2N g77-0.5.11/f/ChangeLog g77-0.5.12/f/ChangeLog
*** g77-0.5.11/f/ChangeLog	Thu Feb 23 04:38:39 1995
--- g77-0.5.12/f/ChangeLog	Thu Feb 23 13:33:21 1995
***************
*** 1,3 ****
--- 1,23 ----
+ Thu Feb 23 12:42:04 1995  Craig Burley  (burley@gnu.ai.mit.edu)
+ 
+ 	* Version 0.5.12 released.
+ 
+ 	* Make-lang.in (f77.install-common): Add "else true;" before outer
+ 	"fi" per Makefile.in patch.
+ 
+ 	* Makefile.in (dircheck): Add "else true;" before "fi" per
+ 	patch from chs1pm@surrey.ac.uk.
+ 
+ 	* com.c (ffecom_push_tempvar): If type desired is ERROR_MARK,
+ 	return error_mark_node, to avoid crash that results from
+ 	making a VAR_DECL with error_mark_node as its type.
+ 
+ 	* ste.c (ffeste_begin_iterdo_): Convert itercount to INTEGER
+ 	anytime calculation of number of iterations ends up with type
+ 	other than INTEGER (e.g. DOUBLE PRECISION, REAL).
+ 
  Thu Feb 23 02:48:38 1995  Craig Burley  (burley@gnu.ai.mit.edu)
+ 
+ 	* Version 0.5.11 released.
  
  	* DOC: Explain -fugly-args.
diff -rcp2N g77-0.5.11/f/Make-lang.in g77-0.5.12/f/Make-lang.in
*** g77-0.5.11/f/Make-lang.in	Wed Feb 22 16:20:08 1995
--- g77-0.5.12/f/Make-lang.in	Thu Feb 23 13:33:22 1995
*************** f77.install-common:
*** 326,330 ****
  	    chmod a+x $(bindir)/$(G77_INSTALL_NAME); \
  	  fi ; \
! 	fi
  
  f77.install-info:
--- 326,330 ----
  	    chmod a+x $(bindir)/$(G77_INSTALL_NAME); \
  	  fi ; \
! 	else true; fi
  
  f77.install-info:
diff -rcp2N g77-0.5.11/f/Makefile.in g77-0.5.12/f/Makefile.in
*** g77-0.5.11/f/Makefile.in	Wed Feb 22 16:20:09 1995
--- g77-0.5.12/f/Makefile.in	Thu Feb 23 13:33:22 1995
*************** f771: $(P) dircheck $(F77_OBJS) $(OBJDEP
*** 250,254 ****
  dircheck:
  	if test ! -f f/Makefile ; \
!         then echo "Build f771 only at the top level." 2>&1; exit 1; fi
  
  Makefile: $(srcdir)/Makefile.in $(srcdir)/../configure
--- 250,255 ----
  dircheck:
  	if test ! -f f/Makefile ; \
! 	then echo "Build f771 only at the top level." 2>&1; exit 1; \
! 	else true; fi
  
  Makefile: $(srcdir)/Makefile.in $(srcdir)/../configure
diff -rcp2N g77-0.5.11/f/com.c g77-0.5.12/f/com.c
*** g77-0.5.11/f/com.c	Thu Feb 23 04:38:44 1995
--- g77-0.5.12/f/com.c	Thu Feb 23 13:33:23 1995
*************** ffecom_push_tempvar (tree type, ffetarge
*** 9996,9999 ****
--- 9996,10002 ----
    assert (!auto_pop || (ffecom_pending_calls_ > 0));
  
+   if (TREE_CODE (type) == ERROR_MARK)
+     return error_mark_node;
+ 
    for (temp = ffecom_latest_temp_; temp != NULL; temp = temp->next)
      {
diff -rcp2N g77-0.5.11/f/ste.c g77-0.5.12/f/ste.c
*** g77-0.5.11/f/ste.c	Tue Feb 21 13:38:25 1995
--- g77-0.5.12/f/ste.c	Thu Feb 23 13:33:23 1995
*************** ffeste_begin_iterdo_ (ffestw block, tree
*** 437,446 ****
  
    if ((TREE_TYPE (tvar) != error_mark_node)
!       && (TYPE_SIZE (TREE_TYPE (tvar)) != NULL_TREE)
!       && ((TREE_CODE (TYPE_SIZE (TREE_TYPE (tvar))) != INTEGER_CST)
! 	  || (TREE_INT_CST_LOW (TYPE_SIZE (TREE_TYPE (tvar)))
! 	      <= TREE_INT_CST_LOW (TYPE_SIZE (ffecom_integer_type_node)))))
!     /* Convert unless promoting downward to INTEGER; else leave as, say,
!        INTEGER*8 (long long int).  */
      expr = convert (ffecom_integer_type_node, expr);
  
--- 437,448 ----
  
    if ((TREE_TYPE (tvar) != error_mark_node)
!       && ((TREE_CODE (TREE_TYPE (tvar)) != INTEGER_TYPE)
! 	  || ((TYPE_SIZE (TREE_TYPE (tvar)) != NULL_TREE)
! 	      && ((TREE_CODE (TYPE_SIZE (TREE_TYPE (tvar)))
! 		   != INTEGER_CST)
! 		  || (TREE_INT_CST_LOW (TYPE_SIZE (TREE_TYPE (tvar)))
! 		      <= TREE_INT_CST_LOW (TYPE_SIZE (ffecom_integer_type_node)))))))
!     /* Convert unless promoting INTEGER type of any kind downward to
!        default INTEGER; else leave as, say, INTEGER*8 (long long int).  */
      expr = convert (ffecom_integer_type_node, expr);
  
diff -rcp2N g77-0.5.11/f/zzz.c g77-0.5.12/f/zzz.c
*** g77-0.5.11/f/zzz.c	Thu Feb 23 04:38:48 1995
--- g77-0.5.12/f/zzz.c	Thu Feb 23 13:33:23 1995
*************** the Free Software Foundation, 675 Mass A
*** 36,40 ****
  /* Externals defined here. */
  
! char *ffezzz_version_string = "0.5.11";
  char *ffezzz_date = __DATE__;
  char *ffezzz_time = __TIME__;
--- 36,40 ----
  /* Externals defined here. */
  
! char *ffezzz_version_string = "0.5.12";
  char *ffezzz_date = __DATE__;
  char *ffezzz_time = __TIME__;