re PR libfortran/59227 (FAIL: gfortran.dg/erf_3.F90 -O0 execution test)

	PR libfortran/59227
	* intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if
	__float128 is not available.

From-SVN: r205193

libgfortran/ChangeLog

 2013-11-20  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
+	PR libfortran/59227
+	* intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if
+	__float128 is not available.
+
+2013-11-20  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
 	PR libfortran/49024
 	* intrinsics/erfc_scaled.c (erfc_scaled_r16): New function.
 	* intrinsics/erfc_scaled_inc.c: Do not provide quadruple

libgfortran/intrinsics/erfc_scaled.c

@@ -52,14 +52,14 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #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
+