OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

u77-test.f (main): Excise `hostnm' to avoid losing on systems which need -lsocket.

Browse Source 
1998-09-30  Dave Love  <d.love@dl.ac.uk>
	* g77.f-torture/execute/u77-test.f (main): Excise `hostnm' to
	avoid losing on systems which need -lsocket.

From-SVN: r22669
This commit is contained in:
Dave Love 1998-09-30 11:51:37 +00:00 committed by Dave Love
parent 43b80f8247
commit f6184c7690
2 changed files with 15 additions and 8 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 @@
1998-09-30 Dave Love <d.love@dl.ac.uk>
* g77.f-torture/execute/u77-test.f (main): Excise `hostnm' to
avoid losing on systems which need -lsocket.
1998-09-28 Alexandre Oliva <oliva@dcc.unicamp.br>
* g++.old-deja/g++.other/bitfld1.C: expected failure

18
gcc/testsuite/g77.f-torture/execute/u77-test.f
View File

@ -9,7 +9,7 @@
real tarray1(2), tarray2(2), r1, r2, sum
intrinsic getpid, getuid, getgid, ierrno, gerror,
+ fnum, isatty, getarg, access, unlink, fstat,
+ stat, lstat, getcwd, gmtime, hostnm, etime, chmod,
+ stat, lstat, getcwd, gmtime, etime, chmod,
+ chdir, fgetc, fputc, system_clock, second, idate, secnds,
+ time, ctime, fdate, ttynam, date_and_time
external lenstr, ctrlc
@ -159,13 +159,15 @@ c now try to get times to change enough to see in etime/dtime
write (6,*) '***CHDIR to ".": ', i
call abort
end if
i=hostnm(wd)
if(i.ne.0) then
call perror ('*** hostnm')
call abort
else
write (6,*) 'Host name is ', wd(:lenstr(wd))
end if
CCC Don't do this, beacuse some targets need -lsocket, which we don't
CCC have a mechanism for supplying.
CCC i=hostnm(wd)
CCC if(i.ne.0) then
CCC call perror ('*** hostnm')
CCC call abort
CCC else
CCC write (6,*) 'Host name is ', wd(:lenstr(wd))
CCC end if
i = access('/dev/null ', 'rw')
if (i.ne.0) write (6,*) '***Read/write ACCESS to /dev/null: ', i
write (6,*) 'Creating file "foo" for testing...'