+ /* See the comments on implementation-defined errno values in
+ <_PDCLIB_config.h>.
+ */
+ _PDCLIB_errno = _PDCLIB_ERROR;
+ return -1;
+}
+
+#endif
+
+#ifdef TEST
+
+#include "_PDCLIB_test.h"
+
+int main( void )
+{
+#ifndef REGTEST
+ struct _PDCLIB_file_t * file1;
+ struct _PDCLIB_file_t * file2;
+ remove( testfile1 );
+ remove( testfile2 );
+ TESTCASE( _PDCLIB_filelist == stdin );
+ TESTCASE( ( file1 = fopen( testfile1, "w" ) ) != NULL );
+ TESTCASE( _PDCLIB_filelist == file1 );
+ TESTCASE( ( file2 = fopen( testfile2, "w" ) ) != NULL );
+ TESTCASE( _PDCLIB_filelist == file2 );
+ TESTCASE( fclose( file2 ) == 0 );
+ TESTCASE( _PDCLIB_filelist == file1 );
+ TESTCASE( ( file2 = fopen( testfile2, "w" ) ) != NULL );
+ TESTCASE( _PDCLIB_filelist == file2 );
+ TESTCASE( fclose( file1 ) == 0 );
+ TESTCASE( _PDCLIB_filelist == file2 );
+ TESTCASE( fclose( file2 ) == 0 );
+ TESTCASE( _PDCLIB_filelist == stdin );
+ TESTCASE( remove( testfile1 ) == 0 );
+ TESTCASE( remove( testfile2 ) == 0 );
+#else
+ puts( " NOTEST fclose() test driver is PDCLib-specific." );