* config/s390/s390.h (HARD_REGNO_MODE_OK): Fix warning regression

[pf3gnuchains/gcc-fork.git] / libiberty / mkstemps.c

diff --git a/libiberty/mkstemps.c b/libiberty/mkstemps.c
index 8fe5784..1f6600a 100644 (file)
--- a/libiberty/mkstemps.c
+++ b/libiberty/mkstemps.c
@@ -121,7 +121,11 @@ mkstemps (template, suffix_len)
       v /= 62;
       XXXXXX[5] = letters[v % 62];
 
+#ifdef VMS
+      fd = open (template, O_RDWR|O_CREAT|O_EXCL, 0600, "fop=tmd");
+#else
       fd = open (template, O_RDWR|O_CREAT|O_EXCL, 0600);
+#endif
       if (fd >= 0)
        /* The file does not exist.  */
        return fd;