bld.c: Remove usage of FFETARGET_okCHARACTER2...

	* bld.c: Remove usage of FFETARGET_okCHARACTER2,
	FFETARGET_okCHARACTER3, FFETARGET_okCHARACTER4,
	FFETARGET_okCHARACTER5, FFETARGET_okCHARACTER6,
	FFETARGET_okCHARACTER7, FFETARGET_okCHARACTER8,
	FFETARGET_okCOMPLEX4, FFETARGET_okCOMPLEX5, FFETARGET_okCOMPLEX6,
	FFETARGET_okCOMPLEX7, FFETARGET_okCOMPLEX8, FFETARGET_okINTEGER5,
	FFETARGET_okINTEGER6, FFETARGET_okINTEGER7, FFETARGET_okINTEGER8,
	FFETARGET_okLOGICAL5, FFETARGET_okLOGICAL6, FFETARGET_okLOGICAL7,
	FFETARGET_okLOGICAL8, FFETARGET_okREAL4, FFETARGET_okREAL5,
	FFETARGET_okREAL6, FFETARGET_okREAL7 and FFETARGET_okREAL8.
	* bld.h: Likewise.
	* expr.c: Likewise.
	* target.h: Likewise.
	* com.c: Likewise.

From-SVN: r67622

1 files changed, 0 insertions, 899 deletions

diff --git a/gcc/f/expr.c b/gcc/f/expr.c
index 077da3e..1777592 100644
--- a/gcc/f/expr.c
+++ b/gcc/f/expr.c
@@ -516,14 +516,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_integer1_real4
-		    (ffebld_cu_ptr_integer1 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("INTEGER1/REAL bad source kind type" == NULL);
 		  break;
@@ -557,14 +549,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_integer1_complex4
-		    (ffebld_cu_ptr_integer1 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("INTEGER1/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -709,14 +693,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_integer2_real4
-		    (ffebld_cu_ptr_integer2 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("INTEGER2/REAL bad source kind type" == NULL);
 		  break;
@@ -750,14 +726,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_integer2_complex4
-		    (ffebld_cu_ptr_integer2 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("INTEGER2/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -902,14 +870,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_integer3_real4
-		    (ffebld_cu_ptr_integer3 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("INTEGER3/REAL bad source kind type" == NULL);
 		  break;
@@ -943,14 +903,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_integer3_complex4
-		    (ffebld_cu_ptr_integer3 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("INTEGER3/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -1095,14 +1047,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_integer4_real4
-		    (ffebld_cu_ptr_integer4 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("INTEGER4/REAL bad source kind type" == NULL);
 		  break;
@@ -1136,14 +1080,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_integer4_complex4
-		    (ffebld_cu_ptr_integer4 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("INTEGER3/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -1752,14 +1688,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_real1_real4
-		    (ffebld_cu_ptr_real1 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("REAL1/REAL bad source kind type" == NULL);
 		  break;
@@ -1793,14 +1721,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_real1_complex4
-		    (ffebld_cu_ptr_real1 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("REAL1/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -1904,14 +1824,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_real2_real4
-		    (ffebld_cu_ptr_real2 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("REAL2/REAL bad source kind type" == NULL);
 		  break;
@@ -1945,14 +1857,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_real2_complex4
-		    (ffebld_cu_ptr_real2 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("REAL2/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -2056,14 +1960,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_real3_real4
-		    (ffebld_cu_ptr_real3 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("REAL3/REAL bad source kind type" == NULL);
 		  break;
@@ -2097,14 +1993,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_real3_complex4
-		    (ffebld_cu_ptr_real3 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("REAL3/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -2144,158 +2032,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  switch (ffeinfo_basictype (ffebld_info (l)))
-	    {
-	    case FFEINFO_basictypeINTEGER:
-	      switch (ffeinfo_kindtype (ffebld_info (l)))
-		{
-#if FFETARGET_okINTEGER1
-		case FFEINFO_kindtypeINTEGER1:
-		  error = ffetarget_convert_real4_integer1
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_integer1 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okINTEGER2
-		case FFEINFO_kindtypeINTEGER2:
-		  error = ffetarget_convert_real4_integer2
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_integer2 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okINTEGER3
-		case FFEINFO_kindtypeINTEGER3:
-		  error = ffetarget_convert_real4_integer3
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_integer3 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okINTEGER4
-		case FFEINFO_kindtypeINTEGER4:
-		  error = ffetarget_convert_real4_integer4
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_integer4 (ffebld_conter (l)));
-		  break;
-#endif
-
-		default:
-		  assert ("REAL4/INTEGER bad source kind type" == NULL);
-		  break;
-		}
-	      break;
-
-	    case FFEINFO_basictypeREAL:
-	      switch (ffeinfo_kindtype (ffebld_info (l)))
-		{
-#if FFETARGET_okREAL1
-		case FFEINFO_kindtypeREAL1:
-		  error = ffetarget_convert_real4_real1
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_real1 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okREAL2
-		case FFEINFO_kindtypeREAL2:
-		  error = ffetarget_convert_real4_real2
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_real2 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okREAL3
-		case FFEINFO_kindtypeREAL3:
-		  error = ffetarget_convert_real4_real3
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_real3 (ffebld_conter (l)));
-		  break;
-#endif
-
-		default:
-		  assert ("REAL4/REAL bad source kind type" == NULL);
-		  break;
-		}
-	      break;
-
-	    case FFEINFO_basictypeCOMPLEX:
-	      switch (ffeinfo_kindtype (ffebld_info (l)))
-		{
-#if FFETARGET_okCOMPLEX1
-		case FFEINFO_kindtypeREAL1:
-		  error = ffetarget_convert_real4_complex1
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_complex1 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okCOMPLEX2
-		case FFEINFO_kindtypeREAL2:
-		  error = ffetarget_convert_real4_complex2
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_complex2 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okCOMPLEX3
-		case FFEINFO_kindtypeREAL3:
-		  error = ffetarget_convert_real4_complex3
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_complex3 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_real4_complex4
-		    (ffebld_cu_ptr_real4 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
-		default:
-		  assert ("REAL4/COMPLEX bad source kind type" == NULL);
-		  break;
-		}
-	      break;
-
-	    case FFEINFO_basictypeCHARACTER:
-	      error = ffetarget_convert_real4_character1
-		(ffebld_cu_ptr_real4 (u),
-		 ffebld_constant_character1 (ffebld_conter (l)));
-	      break;
-
-	    case FFEINFO_basictypeHOLLERITH:
-	      error = ffetarget_convert_real4_hollerith
-		(ffebld_cu_ptr_real4 (u),
-		 ffebld_constant_hollerith (ffebld_conter (l)));
-	      break;
-
-	    case FFEINFO_basictypeTYPELESS:
-	      error = ffetarget_convert_real4_typeless
-		(ffebld_cu_ptr_real4 (u),
-		 ffebld_constant_typeless (ffebld_conter (l)));
-	      break;
-
-	    default:
-	      assert ("REAL4 bad type" == NULL);
-	      break;
-	    }
-
-	  /* If conversion operation is not implemented, return original expr.  */
-	  if (error == FFEBAD_NOCANDO)
-	    return expr;
-
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_real4_val
-	     (ffebld_cu_val_real4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -2378,14 +2114,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_complex1_real4
-		    (ffebld_cu_ptr_complex1 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("COMPLEX1/REAL bad source kind type" == NULL);
 		  break;
@@ -2411,14 +2139,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_complex1_complex4
-		    (ffebld_cu_ptr_complex1 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("COMPLEX1/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -2530,14 +2250,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_complex2_real4
-		    (ffebld_cu_ptr_complex2 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("COMPLEX2/REAL bad source kind type" == NULL);
 		  break;
@@ -2563,14 +2275,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_complex2_complex4
-		    (ffebld_cu_ptr_complex2 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("COMPLEX2/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -2682,14 +2386,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_complex3_real4
-		    (ffebld_cu_ptr_complex3 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("COMPLEX3/REAL bad source kind type" == NULL);
 		  break;
@@ -2715,14 +2411,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 		  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_complex3_complex4
-		    (ffebld_cu_ptr_complex3 (u),
-		     ffebld_constant_complex4 (ffebld_conter (l)));
-		  break;
-#endif
-
 		default:
 		  assert ("COMPLEX3/COMPLEX bad source kind type" == NULL);
 		  break;
@@ -2762,158 +2450,6 @@ ffeexpr_collapse_convert (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-	  switch (ffeinfo_basictype (ffebld_info (l)))
-	    {
-	    case FFEINFO_basictypeINTEGER:
-	      switch (ffeinfo_kindtype (ffebld_info (l)))
-		{
-#if FFETARGET_okINTEGER1
-		case FFEINFO_kindtypeINTEGER1:
-		  error = ffetarget_convert_complex4_integer1
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_integer1 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okINTEGER2
-		case FFEINFO_kindtypeINTEGER2:
-		  error = ffetarget_convert_complex4_integer2
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_integer2 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okINTEGER3
-		case FFEINFO_kindtypeINTEGER3:
-		  error = ffetarget_convert_complex4_integer3
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_integer3 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okINTEGER4
-		case FFEINFO_kindtypeINTEGER4:
-		  error = ffetarget_convert_complex4_integer4
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_integer4 (ffebld_conter (l)));
-		  break;
-#endif
-
-		default:
-		  assert ("COMPLEX4/INTEGER bad source kind type" == NULL);
-		  break;
-		}
-	      break;
-
-	    case FFEINFO_basictypeREAL:
-	      switch (ffeinfo_kindtype (ffebld_info (l)))
-		{
-#if FFETARGET_okREAL1
-		case FFEINFO_kindtypeREAL1:
-		  error = ffetarget_convert_complex4_real1
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_real1 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okREAL2
-		case FFEINFO_kindtypeREAL2:
-		  error = ffetarget_convert_complex4_real2
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_real2 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okREAL3
-		case FFEINFO_kindtypeREAL3:
-		  error = ffetarget_convert_complex4_real3
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_real3 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okREAL4
-		case FFEINFO_kindtypeREAL4:
-		  error = ffetarget_convert_complex4_real4
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_real4 (ffebld_conter (l)));
-		  break;
-#endif
-
-		default:
-		  assert ("COMPLEX4/REAL bad source kind type" == NULL);
-		  break;
-		}
-	      break;
-
-	    case FFEINFO_basictypeCOMPLEX:
-	      switch (ffeinfo_kindtype (ffebld_info (l)))
-		{
-#if FFETARGET_okCOMPLEX1
-		case FFEINFO_kindtypeREAL1:
-		  error = ffetarget_convert_complex4_complex1
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_complex1 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okCOMPLEX2
-		case FFEINFO_kindtypeREAL2:
-		  error = ffetarget_convert_complex4_complex2
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_complex2 (ffebld_conter (l)));
-		  break;
-#endif
-
-#if FFETARGET_okCOMPLEX3
-		case FFEINFO_kindtypeREAL3:
-		  error = ffetarget_convert_complex4_complex3
-		    (ffebld_cu_ptr_complex4 (u),
-		     ffebld_constant_complex3 (ffebld_conter (l)));
-		  break;
-#endif
-
-		default:
-		  assert ("COMPLEX4/COMPLEX bad source kind type" == NULL);
-		  break;
-		}
-	      break;
-
-	    case FFEINFO_basictypeCHARACTER:
-	      error = ffetarget_convert_complex4_character1
-		(ffebld_cu_ptr_complex4 (u),
-		 ffebld_constant_character1 (ffebld_conter (l)));
-	      break;
-
-	    case FFEINFO_basictypeHOLLERITH:
-	      error = ffetarget_convert_complex4_hollerith
-		(ffebld_cu_ptr_complex4 (u),
-		 ffebld_constant_hollerith (ffebld_conter (l)));
-	      break;
-
-	    case FFEINFO_basictypeTYPELESS:
-	      error = ffetarget_convert_complex4_typeless
-		(ffebld_cu_ptr_complex4 (u),
-		 ffebld_constant_typeless (ffebld_conter (l)));
-	      break;
-
-	    default:
-	      assert ("COMPLEX4 bad type" == NULL);
-	      break;
-	    }
-
-	  /* If conversion operation is not implemented, return original expr.  */
-	  if (error == FFEBAD_NOCANDO)
-	    return expr;
-
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_complex4_val
-	     (ffebld_cu_val_complex4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad complex kind type" == NULL);
 	  break;
@@ -3302,15 +2838,6 @@ ffeexpr_collapse_uminus (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_uminus_real4 (ffebld_cu_ptr_real4 (u),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val
-					   (ffebld_cu_val_real4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -3347,15 +2874,6 @@ ffeexpr_collapse_uminus (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_uminus_complex4 (ffebld_cu_ptr_complex4 (u),
-			      ffebld_constant_complex4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val
-					(ffebld_cu_val_complex4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad complex kind type" == NULL);
 	  break;
@@ -3646,16 +3164,6 @@ ffeexpr_collapse_add (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_add_real4 (ffebld_cu_ptr_real4 (u),
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val
-					   (ffebld_cu_val_real4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -3695,16 +3203,6 @@ ffeexpr_collapse_add (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_add_complex4 (ffebld_cu_ptr_complex4 (u),
-			       ffebld_constant_complex4 (ffebld_conter (l)),
-			      ffebld_constant_complex4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val
-					(ffebld_cu_val_complex4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad complex kind type" == NULL);
 	  break;
@@ -3851,16 +3349,6 @@ ffeexpr_collapse_subtract (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_subtract_real4 (ffebld_cu_ptr_real4 (u),
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val
-					   (ffebld_cu_val_real4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -3900,16 +3388,6 @@ ffeexpr_collapse_subtract (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_subtract_complex4 (ffebld_cu_ptr_complex4 (u),
-			       ffebld_constant_complex4 (ffebld_conter (l)),
-			      ffebld_constant_complex4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val
-					(ffebld_cu_val_complex4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad complex kind type" == NULL);
 	  break;
@@ -4056,16 +3534,6 @@ ffeexpr_collapse_multiply (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_multiply_real4 (ffebld_cu_ptr_real4 (u),
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val
-					   (ffebld_cu_val_real4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -4105,16 +3573,6 @@ ffeexpr_collapse_multiply (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_multiply_complex4 (ffebld_cu_ptr_complex4 (u),
-			       ffebld_constant_complex4 (ffebld_conter (l)),
-			      ffebld_constant_complex4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val
-					(ffebld_cu_val_complex4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad complex kind type" == NULL);
 	  break;
@@ -4261,16 +3719,6 @@ ffeexpr_collapse_divide (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_divide_real4 (ffebld_cu_ptr_real4 (u),
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_real4_val
-					   (ffebld_cu_val_real4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -4310,16 +3758,6 @@ ffeexpr_collapse_divide (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_divide_complex4 (ffebld_cu_ptr_complex4 (u),
-			       ffebld_constant_complex4 (ffebld_conter (l)),
-			      ffebld_constant_complex4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_complex4_val
-					(ffebld_cu_val_complex4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad complex kind type" == NULL);
 	  break;
@@ -4563,39 +4001,6 @@ ffeexpr_collapse_concatenate (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCHARACTER2
-	case FFEINFO_kindtypeCHARACTER2:
-	  error = ffetarget_concatenate_character2 (ffebld_cu_ptr_character2 (u),
-			     ffebld_constant_character2 (ffebld_conter (l)),
-			     ffebld_constant_character2 (ffebld_conter (r)),
-				   ffebld_constant_pool (), &len);
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_character2_val
-				      (ffebld_cu_val_character2 (u)), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER3
-	case FFEINFO_kindtypeCHARACTER3:
-	  error = ffetarget_concatenate_character3 (ffebld_cu_ptr_character3 (u),
-			     ffebld_constant_character3 (ffebld_conter (l)),
-			     ffebld_constant_character3 (ffebld_conter (r)),
-				   ffebld_constant_pool (), &len);
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_character3_val
-				      (ffebld_cu_val_character3 (u)), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER4
-	case FFEINFO_kindtypeCHARACTER4:
-	  error = ffetarget_concatenate_character4 (ffebld_cu_ptr_character4 (u),
-			     ffebld_constant_character4 (ffebld_conter (l)),
-			     ffebld_constant_character4 (ffebld_conter (r)),
-				   ffebld_constant_pool (), &len);
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_character4_val
-				      (ffebld_cu_val_character4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad character kind type" == NULL);
 	  break;
@@ -4740,16 +4145,6 @@ ffeexpr_collapse_eq (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_eq_real4 (&val,
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -4789,16 +4184,6 @@ ffeexpr_collapse_eq (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_eq_complex4 (&val,
-			       ffebld_constant_complex4 (ffebld_conter (l)),
-			      ffebld_constant_complex4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad complex kind type" == NULL);
 	  break;
@@ -4818,36 +4203,6 @@ ffeexpr_collapse_eq (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCHARACTER2
-	case FFEINFO_kindtypeCHARACTER2:
-	  error = ffetarget_eq_character2 (&val,
-			     ffebld_constant_character2 (ffebld_conter (l)),
-			    ffebld_constant_character2 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER3
-	case FFEINFO_kindtypeCHARACTER3:
-	  error = ffetarget_eq_character3 (&val,
-			     ffebld_constant_character3 (ffebld_conter (l)),
-			    ffebld_constant_character3 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER4
-	case FFEINFO_kindtypeCHARACTER4:
-	  error = ffetarget_eq_character4 (&val,
-			     ffebld_constant_character4 (ffebld_conter (l)),
-			    ffebld_constant_character4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad character kind type" == NULL);
 	  break;
@@ -4992,16 +4347,6 @@ ffeexpr_collapse_ne (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_ne_real4 (&val,
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -5041,16 +4386,6 @@ ffeexpr_collapse_ne (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_ne_complex4 (&val,
-			       ffebld_constant_complex4 (ffebld_conter (l)),
-			      ffebld_constant_complex4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad complex kind type" == NULL);
 	  break;
@@ -5070,36 +4405,6 @@ ffeexpr_collapse_ne (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCHARACTER2
-	case FFEINFO_kindtypeCHARACTER2:
-	  error = ffetarget_ne_character2 (&val,
-			     ffebld_constant_character2 (ffebld_conter (l)),
-			    ffebld_constant_character2 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER3
-	case FFEINFO_kindtypeCHARACTER3:
-	  error = ffetarget_ne_character3 (&val,
-			     ffebld_constant_character3 (ffebld_conter (l)),
-			    ffebld_constant_character3 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER4
-	case FFEINFO_kindtypeCHARACTER4:
-	  error = ffetarget_ne_character4 (&val,
-			     ffebld_constant_character4 (ffebld_conter (l)),
-			    ffebld_constant_character4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad character kind type" == NULL);
 	  break;
@@ -5244,16 +4549,6 @@ ffeexpr_collapse_ge (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_ge_real4 (&val,
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -5273,36 +4568,6 @@ ffeexpr_collapse_ge (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCHARACTER2
-	case FFEINFO_kindtypeCHARACTER2:
-	  error = ffetarget_ge_character2 (&val,
-			     ffebld_constant_character2 (ffebld_conter (l)),
-			    ffebld_constant_character2 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER3
-	case FFEINFO_kindtypeCHARACTER3:
-	  error = ffetarget_ge_character3 (&val,
-			     ffebld_constant_character3 (ffebld_conter (l)),
-			    ffebld_constant_character3 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER4
-	case FFEINFO_kindtypeCHARACTER4:
-	  error = ffetarget_ge_character4 (&val,
-			     ffebld_constant_character4 (ffebld_conter (l)),
-			    ffebld_constant_character4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad character kind type" == NULL);
 	  break;
@@ -5447,16 +4712,6 @@ ffeexpr_collapse_gt (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_gt_real4 (&val,
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -5476,36 +4731,6 @@ ffeexpr_collapse_gt (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCHARACTER2
-	case FFEINFO_kindtypeCHARACTER2:
-	  error = ffetarget_gt_character2 (&val,
-			     ffebld_constant_character2 (ffebld_conter (l)),
-			    ffebld_constant_character2 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER3
-	case FFEINFO_kindtypeCHARACTER3:
-	  error = ffetarget_gt_character3 (&val,
-			     ffebld_constant_character3 (ffebld_conter (l)),
-			    ffebld_constant_character3 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER4
-	case FFEINFO_kindtypeCHARACTER4:
-	  error = ffetarget_gt_character4 (&val,
-			     ffebld_constant_character4 (ffebld_conter (l)),
-			    ffebld_constant_character4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad character kind type" == NULL);
 	  break;
@@ -5650,16 +4875,6 @@ ffeexpr_collapse_le (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_le_real4 (&val,
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -5679,36 +4894,6 @@ ffeexpr_collapse_le (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCHARACTER2
-	case FFEINFO_kindtypeCHARACTER2:
-	  error = ffetarget_le_character2 (&val,
-			     ffebld_constant_character2 (ffebld_conter (l)),
-			    ffebld_constant_character2 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER3
-	case FFEINFO_kindtypeCHARACTER3:
-	  error = ffetarget_le_character3 (&val,
-			     ffebld_constant_character3 (ffebld_conter (l)),
-			    ffebld_constant_character3 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER4
-	case FFEINFO_kindtypeCHARACTER4:
-	  error = ffetarget_le_character4 (&val,
-			     ffebld_constant_character4 (ffebld_conter (l)),
-			    ffebld_constant_character4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad character kind type" == NULL);
 	  break;
@@ -5853,16 +5038,6 @@ ffeexpr_collapse_lt (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okREAL4
-	case FFEINFO_kindtypeREAL4:
-	  error = ffetarget_lt_real4 (&val,
-				  ffebld_constant_real4 (ffebld_conter (l)),
-				 ffebld_constant_real4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad real kind type" == NULL);
 	  break;
@@ -5882,36 +5057,6 @@ ffeexpr_collapse_lt (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCHARACTER2
-	case FFEINFO_kindtypeCHARACTER2:
-	  error = ffetarget_lt_character2 (&val,
-			     ffebld_constant_character2 (ffebld_conter (l)),
-			    ffebld_constant_character2 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER3
-	case FFEINFO_kindtypeCHARACTER3:
-	  error = ffetarget_lt_character3 (&val,
-			     ffebld_constant_character3 (ffebld_conter (l)),
-			    ffebld_constant_character3 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER4
-	case FFEINFO_kindtypeCHARACTER4:
-	  error = ffetarget_lt_character4 (&val,
-			     ffebld_constant_character4 (ffebld_conter (l)),
-			    ffebld_constant_character4 (ffebld_conter (r)));
-	  expr = ffebld_new_conter_with_orig
-	    (ffebld_constant_new_logicaldefault (val), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad character kind type" == NULL);
 	  break;
@@ -6906,36 +6051,6 @@ ffeexpr_collapse_substr (ffebld expr, ffelexToken t)
 	  break;
 #endif
 
-#if FFETARGET_okCHARACTER2
-	case FFEINFO_kindtypeCHARACTER2:
-	  error = ffetarget_substr_character2 (ffebld_cu_ptr_character2 (u),
-		ffebld_constant_character2 (ffebld_conter (l)), first, last,
-				   ffebld_constant_pool (), &len);
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_character2_val
-				      (ffebld_cu_val_character2 (u)), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER3
-	case FFEINFO_kindtypeCHARACTER3:
-	  error = ffetarget_substr_character3 (ffebld_cu_ptr_character3 (u),
-		ffebld_constant_character3 (ffebld_conter (l)), first, last,
-				   ffebld_constant_pool (), &len);
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_character3_val
-				      (ffebld_cu_val_character3 (u)), expr);
-	  break;
-#endif
-
-#if FFETARGET_okCHARACTER4
-	case FFEINFO_kindtypeCHARACTER4:
-	  error = ffetarget_substr_character4 (ffebld_cu_ptr_character4 (u),
-		ffebld_constant_character4 (ffebld_conter (l)), first, last,
-				   ffebld_constant_pool (), &len);
-	  expr = ffebld_new_conter_with_orig (ffebld_constant_new_character4_val
-				      (ffebld_cu_val_character4 (u)), expr);
-	  break;
-#endif
-
 	default:
 	  assert ("bad character kind type" == NULL);
 	  break;
@@ -7666,17 +6781,6 @@ ffeexpr_cb_comma_c_ (ffelexToken ft, ffebld expr, ffelexToken t)
       break;
 #endif
 
-#if FFETARGET_okCOMPLEX4
-    case FFEINFO_kindtypeREAL4:
-      e->u.operand = ffebld_new_conter (ffebld_constant_new_complex4
-	      (ffebld_conter (ffeexpr_stack_->expr), ffebld_conter (expr)));
-      ffebld_set_info (e->u.operand,
-		       ffeinfo_new (FFEINFO_basictypeCOMPLEX, nkt, 0,
-				  FFEINFO_kindENTITY, FFEINFO_whereCONSTANT,
-				    FFETARGET_charactersizeNONE));
-      break;
-#endif
-
     default:
       if (ffebad_start ((nkt == FFEINFO_kindtypeREALDOUBLE)
 			? FFEBAD_BAD_DBLCMPLX : FFEBAD_BAD_COMPLEX))
@@ -8663,9 +7767,6 @@ ffeexpr_type_combine (ffeinfoBasictype *xnbt, ffeinfoKindtype *xnkt,
 #if FFETARGET_okCOMPLEX3
 	case FFEINFO_kindtypeREAL3:
 #endif
-#if FFETARGET_okCOMPLEX4
-	case FFEINFO_kindtypeREAL4:
-#endif
 	  break;		/* Fine and dandy. */
 
 	default: