diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index a428205e5626cb5f94f70e67fe7ab5f26a43f5b0..02524ad35392cebbb4fe813879bf633809bcf1e3 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2013-12-06  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
+	* intrinsics/erfc_scaled.c (_M_2_SQRTPI): Define if missing.
+
 2013-12-01  Uros Bizjak  <ubizjak@gmail.com>
 
 	PR libfortran/59313
diff --git a/libgfortran/intrinsics/erfc_scaled.c b/libgfortran/intrinsics/erfc_scaled.c
index 0498508a5bbcf7f8e909ed026e0d00c88be3b2ca..02a2c15ace3c86d26a23c7f4f414894bbe947186 100644
--- a/libgfortran/intrinsics/erfc_scaled.c
+++ b/libgfortran/intrinsics/erfc_scaled.c
@@ -61,6 +61,9 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #else
 
 # define _THRESH -106.566990228185312813205074546585730L
+# ifndef M_2_SQRTPIl
+#  define M_2_SQRTPIl 1.128379167095512573896158903121545172L
+# endif
 # define _M_2_SQRTPI M_2_SQRTPIl
 # define _INF __builtin_infl()
 # ifdef HAVE_ERFCL