From 9c7acf2f8f73076d56a3deb80a169b3117e413e8 Mon Sep 17 00:00:00 2001 From: Geoff Keating Date: Wed, 17 Nov 1999 02:34:15 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/g77.f-torture/execute/u77-test.f | 4 ++-- libf2c/ChangeLog | 5 +++++ libf2c/libU77/u77-test.f | 4 ++-- 4 files changed, 14 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b0e03d6f453..eef72d6a97e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +1999-11-16 Geoffrey Keating + + * g77.f-torture/execute/u77-test.f (wd): Allow for longer + working directory pathnames. + 1999-11-08 Nick Clifton * 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 198d48b460c..f502bc72833 100644 --- 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 dba61a4a92c..7ccc621e0e2 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,8 @@ +Tue Nov 16 20:39:42 1999 Geoffrey Keating + + * libU77/u77-test.f (wd): Allow for longer working directory + pathnames. + 1999-10-14 Theo Papadopoulo * libU77/acconfig.h: Define GETTIMEOFDAY_ONE_ARGUMENT and diff --git a/libf2c/libU77/u77-test.f b/libf2c/libU77/u77-test.f index 65e972a4b8d..3c8151c533d 100644 --- 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) -- 2.30.2