procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
This commit is contained in:
Geoff Keating 1999-11-17 02:34:15 +00:00 • committed by Geoffrey Keating
parent 4dc07bd7c1
commit 9c7acf2f8f
4 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -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> 1999-11-08 Nick Clifton <nickc@cygnus.com>
* lib/gcc-dg.exp: Include target-supports.exp * lib/gcc-dg.exp: Include target-supports.exp

4
gcc/testsuite/g77.f-torture/execute/u77-test.f
View file

@ -55,8 +55,8 @@
integer lenstr integer lenstr
logical l logical l
character gerr*80, c*1 character gerr*80, c*1
character ctim*25, line*80, lognam*20, wd*100, line2*80, ddate*8, character ctim*25, line*80, lognam*20, wd*1000, line2*80,
+ ttime*10, zone*5, ctim2*25 + ddate*8, ttime*10, zone*5, ctim2*25
integer fstatb (13), statb (13) integer fstatb (13), statb (13)
integer *2 i2zero integer *2 i2zero
integer values(8) integer values(8)

5
libf2c/ChangeLog
View file

@ -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> 1999-10-14 Theo Papadopoulo <Theodore.Papadopoulo@sophia.inria.fr>
* libU77/acconfig.h: Define GETTIMEOFDAY_ONE_ARGUMENT and * libU77/acconfig.h: Define GETTIMEOFDAY_ONE_ARGUMENT and

4
libf2c/libU77/u77-test.f
View file

@ -58,8 +58,8 @@
integer lenstr integer lenstr
logical l logical l
character gerr*80, c*1 character gerr*80, c*1
character ctim*25, line*80, lognam*20, wd*100, line2*80, ddate*8, character ctim*25, line*80, lognam*20, wd*1000, line2*80,
+ ttime*10, zone*5, ctim2*25 + ddate*8, ttime*10, zone*5, ctim2*25
integer fstatb (13), statb (13) integer fstatb (13), statb (13)
integer *2 i2zero integer *2 i2zero
integer values(8) integer values(8)