fix LSTAT intrinsic per Krister Walfridsson <cato@df.lth.se>

From-SVN: r25339

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 911b4671a34fec88948b90c6f629064436b8b26d..1e396a05af6f44839b68fe17497661d25a8099e7 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+1999-02-20  Craig Burley  <craig@jcb-sc.com>
+
+       From Krister Walfridsson <cato@df.lth.se>:
+       * libU77/lstat_.c (G77_lstat_0): Kill spurious setting
+       of element 6 to zero, as it undid the previous setting.
+
 1999-02-15  Craig Burley  <craig@jcb-sc.com>
 
        * f2c.h: Delete my (old) email address.

diff --git a/libf2c/libU77/lstat_.c b/libf2c/libU77/lstat_.c
index e3efce7c55bbea0b7236281e9e55e64820e6cb03..801f6aad1af65066849b684c882fb3f2ae0d0b94 100644 (file)
--- a/libf2c/libU77/lstat_.c
+++ b/libf2c/libU77/lstat_.c
@@ -69,7 +69,6 @@ integer G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
   statb[8] = buf.st_atime;
   statb[9] = buf.st_mtime;
   statb[10] = buf.st_ctime;
-  statb[6] = 0;
 #if HAVE_ST_BLKSIZE
   statb[11] = buf.st_blksize;
 #else