diff --git a/src/java/org/apache/poi/ss/formula/atp/AnalysisToolPak.java b/src/java/org/apache/poi/ss/formula/atp/AnalysisToolPak.java
index f91cbfc798..ba3be146b9 100644
--- a/src/java/org/apache/poi/ss/formula/atp/AnalysisToolPak.java
+++ b/src/java/org/apache/poi/ss/formula/atp/AnalysisToolPak.java
@@ -123,7 +123,7 @@ public final class AnalysisToolPak implements UDFFinder {
r(m, "IMLOG2", null);
r(m, "IMPOWER", null);
r(m, "IMPRODUCT", null);
- r(m, "IMREAL", null);
+ r(m, "IMREAL", ImReal.instance);
r(m, "IMSIN", null);
r(m, "IMSQRT", null);
r(m, "IMSUB", null);
diff --git a/src/java/org/apache/poi/ss/formula/functions/ImReal.java b/src/java/org/apache/poi/ss/formula/functions/ImReal.java
new file mode 100644
index 0000000000..394865fdd9
--- /dev/null
+++ b/src/java/org/apache/poi/ss/formula/functions/ImReal.java
@@ -0,0 +1,95 @@
+/* ====================================================================
+ Licensed to the Apache Software Foundation (ASF) under one or more
+ contributor license agreements. See the NOTICE file distributed with
+ this work for additional information regarding copyright ownership.
+ The ASF licenses this file to You under the Apache License, Version 2.0
+ (the "License"); you may not use this file except in compliance with
+ the License. You may obtain a copy of the License at
+
+ http://www.apache.org/licenses/LICENSE-2.0
+
+ Unless required by applicable law or agreed to in writing, software
+ distributed under the License is distributed on an "AS IS" BASIS,
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ See the License for the specific language governing permissions and
+ limitations under the License.
+==================================================================== */
+
+package org.apache.poi.ss.formula.functions;
+
+import org.apache.poi.ss.formula.OperationEvaluationContext;
+import org.apache.poi.ss.formula.eval.*;
+
+import java.util.regex.Matcher;
+import java.util.regex.Pattern;
+
+/**
+ * Implementation for Excel ImReal() function.
+ *
+ * Syntax:
ImReal (Inumber)
+ *
+ * Returns the real coefficient of a complex number in x + yi or x + yj text format.
+ *
+ * Inumber A complex number for which you want the real coefficient.
+ *
+ * Remarks
+ *
+ * - If inumber is not in the form x + yi or x + yj, this function returns the #NUM! error value.
+ * - Use COMPLEX to convert real and imaginary coefficients into a complex number.
+ *
+ *
+ * @author cedric dot walter @ gmail dot com
+ */
+public class ImReal extends Fixed1ArgFunction implements FreeRefFunction {
+
+ public static final FreeRefFunction instance = new ImReal();
+
+ public ValueEval evaluate(int srcRowIndex, int srcColumnIndex, ValueEval inumberVE) {
+ ValueEval veText1;
+ try {
+ veText1 = OperandResolver.getSingleValue(inumberVE, srcRowIndex, srcColumnIndex);
+ } catch (EvaluationException e) {
+ return e.getErrorEval();
+ }
+ String iNumber = OperandResolver.coerceValueToString(veText1);
+
+ Matcher m = Imaginary.COMPLEX_NUMBER_PATTERN.matcher(iNumber);
+ boolean result = m.matches();
+
+ String real = "";
+ if (result == true) {
+ String realGroup = m.group(2);
+ boolean hasRealPart = realGroup.length() != 0;
+
+ if (realGroup.length() == 0) {
+ return new StringEval(String.valueOf(0));
+ }
+
+ if (hasRealPart) {
+ String sign = "";
+ String realSign = m.group(Imaginary.GROUP1_REAL_SIGN);
+ if (realSign.length() != 0 && !(realSign.equals("+"))) {
+ sign = realSign;
+ }
+
+ String groupRealNumber = m.group(Imaginary.GROUP2_IMAGINARY_INTEGER_OR_DOUBLE);
+ if (groupRealNumber.length() != 0) {
+ real = sign + groupRealNumber;
+ } else {
+ real = sign + "1";
+ }
+ }
+ } else {
+ return ErrorEval.NUM_ERROR;
+ }
+
+ return new StringEval(real);
+ }
+
+ public ValueEval evaluate(ValueEval[] args, OperationEvaluationContext ec) {
+ if (args.length != 1) {
+ return ErrorEval.VALUE_INVALID;
+ }
+ return evaluate(ec.getRowIndex(), ec.getColumnIndex(), args[0]);
+ }
+}
diff --git a/src/testcases/org/apache/poi/ss/formula/functions/TestImRealFunctionsFromSpreadsheet.java b/src/testcases/org/apache/poi/ss/formula/functions/TestImRealFunctionsFromSpreadsheet.java
new file mode 100644
index 0000000000..a64335517c
--- /dev/null
+++ b/src/testcases/org/apache/poi/ss/formula/functions/TestImRealFunctionsFromSpreadsheet.java
@@ -0,0 +1,30 @@
+/* ====================================================================
+ Licensed to the Apache Software Foundation (ASF) under one or more
+ contributor license agreements. See the NOTICE file distributed with
+ this work for additional information regarding copyright ownership.
+ The ASF licenses this file to You under the Apache License, Version 2.0
+ (the "License"); you may not use this file except in compliance with
+ the License. You may obtain a copy of the License at
+
+ http://www.apache.org/licenses/LICENSE-2.0
+
+ Unless required by applicable law or agreed to in writing, software
+ distributed under the License is distributed on an "AS IS" BASIS,
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ See the License for the specific language governing permissions and
+ limitations under the License.
+==================================================================== */
+
+package org.apache.poi.ss.formula.functions;
+
+/**
+ * Tests ImReal() as loaded from a test data spreadsheet.
+ *
+ * @author cedric dot walter @ gmail dot com
+ */
+public class TestImRealFunctionsFromSpreadsheet extends BaseTestFunctionsFromSpreadsheet {
+
+ protected String getFilename() {
+ return "ImRealFunctionTestCaseData.xls";
+ }
+}
diff --git a/test-data/spreadsheet/FormulaEvalTestData.xls b/test-data/spreadsheet/FormulaEvalTestData.xls
index ff8e932ac1..cc3fd41689 100644
Binary files a/test-data/spreadsheet/FormulaEvalTestData.xls and b/test-data/spreadsheet/FormulaEvalTestData.xls differ
diff --git a/test-data/spreadsheet/ImRealFunctionTestCaseData.xls b/test-data/spreadsheet/ImRealFunctionTestCaseData.xls
new file mode 100644
index 0000000000..449e4cd2ca
Binary files /dev/null and b/test-data/spreadsheet/ImRealFunctionTestCaseData.xls differ