3 files changed, 111 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/c_runtime/fclose/test2/CMakeLists.txt b/src/pal/tests/palsuite/c_runtime/fclose/test2/CMakeLists.txt
new file mode 100644
index 0000000000..178dc7d19a
--- /dev/null
+++ b/src/pal/tests/palsuite/c_runtime/fclose/test2/CMakeLists.txt
@@ -0,0 +1,19 @@
+cmake_minimum_required(VERSION 2.8.12.2)
+
+set(CMAKE_INCLUDE_CURRENT_DIR ON)
+
+set(SOURCES
+  test2.c
+)
+
+add_executable(paltest_fclose_test2
+  ${SOURCES}
+)
+
+add_dependencies(paltest_fclose_test2 coreclrpal)
+
+target_link_libraries(paltest_fclose_test2
+  pthread
+  m
+  coreclrpal
+)
diff --git a/src/pal/tests/palsuite/c_runtime/fclose/test2/test2.c b/src/pal/tests/palsuite/c_runtime/fclose/test2/test2.c
new file mode 100644
index 0000000000..f4da535535
--- /dev/null
+++ b/src/pal/tests/palsuite/c_runtime/fclose/test2/test2.c
@@ -0,0 +1,77 @@
+// Licensed to the .NET Foundation under one or more agreements.
+// The .NET Foundation licenses this file to you under the MIT license.
+// See the LICENSE file in the project root for more information.
+
+/*=====================================================================
+**
+** Source:  test2.c (fclose)
+**
+** Purpose: Tests the PAL implementation of the fclose function. 
+**          fclose will be passed a closed file handle to make 
+**          sure it handles it accordingly.
+**
+**
+**===================================================================*/
+
+#include <palsuite.h>
+
+int __cdecl main(int argc, char **argv)
+{
+    HANDLE  hReadPipe   = NULL;
+    HANDLE  hWritePipe  = NULL;
+    BOOL    bRetVal     = FALSE;
+    int     iFiledes    = 0;
+    FILE    *fp;
+
+    SECURITY_ATTRIBUTES lpPipeAttributes;
+
+    /*Initialize the PAL*/
+    if ((PAL_Initialize(argc, argv)) != 0)
+    {
+        return (FAIL);
+    }
+
+    /*Setup SECURITY_ATTRIBUTES structure for CreatePipe*/
+    lpPipeAttributes.nLength              = sizeof(lpPipeAttributes);
+    lpPipeAttributes.lpSecurityDescriptor = NULL; 
+    lpPipeAttributes.bInheritHandle       = TRUE; 
+
+    /*Create a Pipe*/
+    bRetVal = CreatePipe(&hReadPipe,       /* read handle */
+                         &hWritePipe,      /* write handle */
+                         &lpPipeAttributes,/* security attributes */
+                         0);               /* pipe size */
+
+    if (bRetVal == FALSE)
+    {
+        Fail("ERROR: Unable to create pipe; returned error code %ld"
+            , GetLastError());
+    }
+
+    /*Get a file descriptor for the read pipe handle*/
+    iFiledes = _open_osfhandle((long)hReadPipe,_O_RDONLY);
+
+    if (iFiledes == -1)
+    {
+        Fail("ERROR: _open_osfhandle failed to open "
+             " hReadPipe=0x%lx", hReadPipe);
+    }
+    
+    /*Open read pipe handle in read mode*/
+    fp = _fdopen(iFiledes, "r");
+
+    if (fp == NULL)
+    {
+        Fail("ERROR: unable to fdopen file descriptor"
+             " iFiledes=%d", iFiledes);
+    }
+
+    /*Attempt to close the file stream*/
+    if (fclose(fp) != 0)
+    {
+        Fail("ERROR: Unable to fclose file stream fp=0x%lx\n", fp);
+    }
+
+    PAL_Terminate();
+    return (PASS);
+}
diff --git a/src/pal/tests/palsuite/c_runtime/fclose/test2/testinfo.dat b/src/pal/tests/palsuite/c_runtime/fclose/test2/testinfo.dat
new file mode 100644
index 0000000000..192b8d2f6b
--- /dev/null
+++ b/src/pal/tests/palsuite/c_runtime/fclose/test2/testinfo.dat
@@ -0,0 +1,15 @@
+# Licensed to the .NET Foundation under one or more agreements.
+# The .NET Foundation licenses this file to you under the MIT license.
+# See the LICENSE file in the project root for more information.
+
+Version = 1.0
+Section = C Runtime
+Function = fclose
+Name = Test for fclose
+TYPE = DEFAULT
+EXE1 = test2
+LANG = cpp
+Description
+= Tests the PAL implementation of the fclose function. 
+= fclose will be passed a closed file handle to 
+= make sure it handles it accordingly.