diff options
| author | Dave Love <d.love@dl.ac.uk> | 1998-09-30 11:51:37 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-09-30 11:51:37 +0000 |
| commit | f6184c76904589daa59cce04b2250dbb9b1796db (patch) | |
| tree | bc1ddf9ef5e4f630d23c805e4ca000b0f5f4bba8 | |
| parent | 43b80f824750e5405df6fd79e6455c1b7c7b475d (diff) | |
| download | gcc-f6184c76904589daa59cce04b2250dbb9b1796db.zip gcc-f6184c76904589daa59cce04b2250dbb9b1796db.tar.gz gcc-f6184c76904589daa59cce04b2250dbb9b1796db.tar.bz2 | |
u77-test.f (main): Excise `hostnm' to avoid losing on systems which need -lsocket.
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/u77-test.f | 18 |
2 files changed, 15 insertions, 8 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4cb8f3d..c60f806 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.f b/gcc/testsuite/g77.f-torture/execute/u77-test.f index 8364cb5..07928fb 100644 --- a/gcc/testsuite/g77.f-torture/execute/u77-test.f +++ b/gcc/testsuite/g77.f-torture/execute/u77-test.f @@ -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...' |