* gcc/testsuite/g77.f-torture/execute/u77-test.f (wd): Allow for longer

working directory pathnames.
* libf2c/libU77/u77-test.f (wd): Allow for longer working directory
pathnames.

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b0e03d6..eef72d6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-16  Geoffrey Keating  <geoffk@cygnus.com>
+
+       * g77.f-torture/execute/u77-test.f (wd): Allow for longer
+       working directory pathnames.
+
 1999-11-08  Nick Clifton  <nickc@cygnus.com>
 
        * lib/gcc-dg.exp: Include target-supports.exp

diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.f b/gcc/testsuite/g77.f-torture/execute/u77-test.f
index 198d48b..f502bc7 100644 (file)
--- a/gcc/testsuite/g77.f-torture/execute/u77-test.f
+++ b/gcc/testsuite/g77.f-torture/execute/u77-test.f
@@ -55,8 +55,8 @@
       integer lenstr
       logical l
       character gerr*80, c*1
-      character ctim*25, line*80, lognam*20, wd*100, line2*80, ddate*8,
-     +     ttime*10, zone*5, ctim2*25
+      character ctim*25, line*80, lognam*20, wd*1000, line2*80, 
+     +     ddate*8, ttime*10, zone*5, ctim2*25
       integer fstatb (13), statb (13)
       integer *2 i2zero
       integer values(8)

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index dba61a4..7ccc621 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+Tue Nov 16 20:39:42 1999  Geoffrey Keating  <geoffk@cygnus.com>
+
+       * libU77/u77-test.f (wd): Allow for longer working directory
+       pathnames.
+
 1999-10-14 Theo Papadopoulo  <Theodore.Papadopoulo@sophia.inria.fr>
 
        * libU77/acconfig.h: Define GETTIMEOFDAY_ONE_ARGUMENT and

diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f
index 65e972a..3c8151c 100644 (file)
--- a/libf2c/libU77/u77-test.f
+++ b/libf2c/libU77/u77-test.f
@@ -58,8 +58,8 @@
       integer lenstr
       logical l
       character gerr*80, c*1
-      character ctim*25, line*80, lognam*20, wd*100, line2*80, ddate*8,
-     +     ttime*10, zone*5, ctim2*25
+      character ctim*25, line*80, lognam*20, wd*1000, line2*80,
+     +     ddate*8, ttime*10, zone*5, ctim2*25
       integer fstatb (13), statb (13)
       integer *2 i2zero
       integer values(8)