Index: intrinsics/erfc_scaled.c
===================================================================
--- intrinsics/erfc_scaled.c	(revision 205151)
+++ intrinsics/erfc_scaled.c	(working copy)
@@ -52,14 +52,14 @@ see the files COPYING3 and COPYING.RUNTI
 #endif
 
 
+#ifdef GFC_REAL_16_IS_FLOAT128
+
 /* For quadruple-precision (__float128), netlib's implementation is
    not accurate enough.  We provide another one.  */
 
-
 extern GFC_REAL_16 erfc_scaled_r16 (GFC_REAL_16);
 export_proto(erfc_scaled_r16);
 
-
 GFC_REAL_16
 erfc_scaled_r16 (GFC_REAL_16 x)
 {
@@ -101,3 +101,5 @@ erfc_scaled_r16 (GFC_REAL_16 x)
     }
 }
 
+#endif
+