1 files changed, 38 insertions, 0 deletions
diff --git a/testsuites/psxtests/psxhdrs/complex/catan.c b/testsuites/psxtests/psxhdrs/complex/catan.c
new file mode 100644
index 0000000000..11e39b3e3a
--- /dev/null
+++ b/testsuites/psxtests/psxhdrs/complex/catan.c
@@ -0,0 +1,38 @@
+/**
+ *  @file
+ *  @brief catan() API Conformance Test
+ */
+
+/*
+ *  COPYRIGHT (c) 2018.
+ *  Zenon (zehata).
+ *
+ *  Permission to use, copy, modify, and/or distribute this software
+ *  for any purpose with or without fee is hereby granted.
+ *
+ *  THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+ *  WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+ *  WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR
+ *  BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES
+ *  OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
+ *  WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
+ *  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <complex.h>
+
+int test(void);
+
+int test(void)
+{
+  double complex number;
+  double complex result;
+
+  number = 1.0 + 1.0 * I;
+  result = catan(number);
+  return (result != 0);
+}