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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4cb8f3d26f528ff27149a1fd3751e522c000e949..c60f8064b2e3712d250e768782c614d264358728 100644 (file)
--- 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 8364cb56ea1f71a13f63bd3df4d9233cbf618a84..07928fb3cb3497a000971786507489b728db42bd 100644 (file)
--- 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...'