u77-test.f (wd): Allow for longer working directory pathnames.

* 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.

From-SVN: r30551

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b0e03d6f4536188a2154dada75b41459c97053e0..eef72d6a97ef590c54c429b276bd0cebd93ffe1c 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 198d48b460cfaade563d41214c20863f7bedd63e..f502bc7283395da4b5b98074c21120c355cd6805 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 dba61a4a92cefb8f79b18829876beb3734a327e7..7ccc621e0e25b6cc64fcb796f2ee6ba32d4e24d3 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 65e972a4b8dfce58bae56cbbcbee67adebede8d8..3c8151c533df15a47cee02bb6779d815550ba4b9 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)