1 files changed, 35 insertions, 0 deletions
diff --git a/test/Unit/selected_int_kind.cpp b/test/Unit/selected_int_kind.cpp
new file mode 100644
index 0000000..78b431b
--- /dev/null
+++ b/test/Unit/selected_int_kind.cpp
@@ -0,0 +1,35 @@
+//===-- selected_int_kind.cpp - Test libflang_selected_int_kind -----------===//
+//
+// The LLVM Compiler Infrastructure
+//
+// This file is dual licensed under the MIT and the University of Illinois Open
+// Source Licenses. See LICENSE.TXT for details.
+//
+//===----------------------------------------------------------------------===//
+
+#include <assert.h>
+#include <iostream>
+#include "Core/Core.h"
+
+static bool test(int32_t x, int32_t expected) {
+  x = libflang_selected_int_kind(x);
+  if(x != expected)
+    std::cout << "Error in libflang_selected_int_kind - expected " << expected
+              << ", got " << x << std::endl;
+  return x != expected;
+}
+
+int main() {
+  if(test(-2, 1))
+    return 1;
+  if(test(1,1))
+    return 1;
+  if(test(7,4))
+    return 1;
+  if(test(13,8))
+    return 1;
+  if(test(1000,-1))
+    return 1;
+  return 0;
+}
+