* lib/target-supports.exp (check_effective_target_fd_truncate):

	Close and unlink test file before exit.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179774 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1be870b..314391b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-11  Uros Bizjak  <ubizjak@gmail.com>
+
+       * lib/target-supports.exp (check_effective_target_fd_truncate):
+       Close and unlink test file before exit.
+
 2011-10-10  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/50564

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 550d534..a3b5311 100644 (file)
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -3739,16 +3739,25 @@ proc check_effective_target_fd_truncate { } {
          int fd;
          const char t[] = "test writing more than ten characters";
          char s[11];
-         fd =  fileno (f);
+         int status = 0;
+         fd = fileno (f);
          write (fd, t, sizeof (t) - 1);
          lseek (fd, 0, 0);
          if (ftruncate (fd, 10) != 0)
-           exit (1);
+           status = 1;
          close (fd);
+         fclose (f);
+         if (status)
+           {
+             unlink ("tst.tmp");
+             exit (status);
+           }
          f = fopen ("tst.tmp", "rb");
          if (fread (s, 1, sizeof (s), f) != 10 || strncmp (s, t, 10) != 0)
-           exit (1);
-         exit (0);
+           status = 1;
+         fclose (f);
+         unlink ("tst.tmp");
+         exit (status);
        }
     }