diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index a4561c22b4f..8510f081fc8 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-04  Jakub Jelinek  <jakub@redhat.com>
+
+	PR fortran/6106
+	* config/sparc/sparc.h (MIN_UNITS_PER_WORD): Backout 2001-01-01
+	change.
+
 2002-04-04  Jakub Jelinek  <jakub@redhat.com>
 
 	* config/sparc/sparc.c (sparc_va_arg): Adjust va_list by
diff --git a/gcc/config/sparc/sparc.h b/gcc/config/sparc/sparc.h
index 040a4a38320..91b82125197 100644
--- a/gcc/config/sparc/sparc.h
+++ b/gcc/config/sparc/sparc.h
@@ -683,7 +683,11 @@ extern struct sparc_cpu_select sparc_select[];
 
 /* Width of a word, in units (bytes).  */
 #define UNITS_PER_WORD		(TARGET_ARCH64 ? 8 : 4)
+#ifdef IN_LIBGCC2
+#define MIN_UNITS_PER_WORD	UNITS_PER_WORD
+#else
 #define MIN_UNITS_PER_WORD	4
+#endif
 
 /* Now define the sizes of the C data types.  */