From 9c7acf2f8f73076d56a3deb80a169b3117e413e8 Mon Sep 17 00:00:00 2001 From: Geoff Keating Date: Wed, 17 Nov 1999 02:34:15 +0000 Subject: 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 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b0e03d6..eef72d6 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 198d48b..f502bc7 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) -- cgit v1.1