diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 2524c56ad815..827142beefb5 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+Mon Mar 20 15:49:40 2000  Jim Wilson  <wilson@cygnus.com>
+
+	* f/target.h (FFETARGET_32bit_longs): New.  Define for alpha, sparc64,
+	and ia64.
+	(ffetargetInteger1, ffetargetLogical1, ffetargetReal1, ffetargetReal2,
+	ffetarget_integerdefault_is_magical): Use FFETARGET_32bit_longs.
+
 Fri Mar 10 00:43:55 2000  Jason Merrill  <jason@casey.cygnus.com>
 
 	* com.c (ffecom_stabilize_aggregate_): Don't refer to TREE_RAISES.
diff --git a/gcc/f/target.h b/gcc/f/target.h
index 810e76aa88c5..4efc97348554 100644
--- a/gcc/f/target.h
+++ b/gcc/f/target.h
@@ -234,6 +234,10 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #define FFETARGET_f2cTYLOGICAL2 13
 #define FFETARGET_f2cTYQUAD 14
 
+#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__))) && (!defined(__ia64__) || !defined(__LP64__))
+#define FFETARGET_32bit_longs
+#endif
+
 /* Typedefs. */
 
 typedef unsigned char ffetargetAlign;	/* ffetargetOffset for alignment. */
@@ -247,7 +251,7 @@ typedef long long ffetargetOffset;
 #define ffetargetOffset_f "ll"
 
 #if FFETARGET_okINTEGER1
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
 typedef long int ffetargetInteger1;
 #define ffetargetInteger1_f "l"
 #else
@@ -288,7 +292,7 @@ typedef ? ffetargetInteger8;
 ?
 #endif
 #if FFETARGET_okLOGICAL1
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
 typedef long int ffetargetLogical1;
 #define ffetargetLogical1_f "l"
 #else
@@ -330,7 +334,7 @@ typedef ? ffetargetLogical8;
 #endif
 #if FFETARGET_okREAL1
 #ifdef REAL_ARITHMETIC
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
 typedef long int ffetargetReal1;
 #define ffetargetReal1_f "l"
 #define ffetarget_cvt_r1_to_rv_ REAL_VALUE_UNTO_TARGET_SINGLE
@@ -354,7 +358,7 @@ typedef float ffetargetReal1;
 #endif
 #if FFETARGET_okREAL2
 #ifdef REAL_ARITHMETIC
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
 typedef struct
   {
     long int v[2];
@@ -1496,7 +1500,7 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len);
 #define ffetarget_init_2()
 #define ffetarget_init_3()
 #define ffetarget_init_4()
-#if !defined(__alpha__) && (!defined(__sparc__) || (!defined(__sparcv9) && !defined(__arch64__)))
+#ifdef FFETARGET_32bit_longs
 #define ffetarget_integerdefault_is_magical(i) \
   (((unsigned long int) i) == FFETARGET_integerBIG_MAGICAL)
 #else