From 041508a2ec3b8f19e3d46b8925892e9c0cbb4273 Mon Sep 17 00:00:00 2001
From: Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
Date: Fri, 6 Dec 2013 10:04:05 +0000
Subject: [PATCH] Provide _M_2_SQRTPI if missing.

	* intrinsics/erfc_scaled.c (_M_2_SQRTPI): Define if missing.

From-SVN: r205731
---
 libgfortran/ChangeLog                | 4 ++++
 libgfortran/intrinsics/erfc_scaled.c | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index a428205e562..02524ad3539 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 0498508a5bb..02a2c15ace3 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