From 9074cde5dba88960ac90bb3fea963bb0e96ba16d Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sat, 20 Feb 1999 14:55:52 +0000 Subject: [PATCH] fix LSTAT intrinsic per Krister Walfridsson From-SVN: r25339 --- libf2c/ChangeLog | 6 ++++++ libf2c/libU77/lstat_.c | 1 - 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 911b4671a34..1e396a05af6 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +1999-02-20 Craig Burley + + From Krister Walfridsson : + * 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 * f2c.h: Delete my (old) email address. diff --git a/libf2c/libU77/lstat_.c b/libf2c/libU77/lstat_.c index e3efce7c55b..801f6aad1af 100644 --- 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