test-fflush: silence compiler warning

[gnulib.git] / tests / test-fflush.c

diff --git a/tests/test-fflush.c b/tests/test-fflush.c
index 3c36ed9..a6c0e18 100644 (file)
--- a/tests/test-fflush.c
+++ b/tests/test-fflush.c
@@ -50,7 +50,8 @@ main (void)
   if (!f || 0 > fd || fread (buffer, 1, 5, f) != 5)
     {
       fputs ("Failed initial read of sample file.\n", stderr);
-      fclose (f);
+      if (f)
+        fclose (f);
       unlink ("test-fflush.txt");
       return 1;
     }