gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f

   1 ! { dg-do compile }
   2 ! Testing g77 intrinsics as subroutines
   3       integer(kind=8) i8
   4       integer i4
   5       integer i
   6       character*80 c
   7
   8       i8 = time ()
   9       i4 = time ()
  10       i8 = time8 ()
  11       i4 = time8 ()
  12
  13       i8 = hostnm (c)
  14       i4 = hostnm (c)
  15       i = hostnm (c)
  16
  17       i8 = ierrno ()
  18       i4 = ierrno ()
  19       i = ierrno ()
  20
  21       i8 = kill (i8, i8)
  22       i8 = kill (i8, i4)
  23       i8 = kill (i4, i8)
  24       i8 = kill (i4, i4)
  25       i4 = kill (i8, i8)
  26       i4 = kill (i8, i4)
  27       i4 = kill (i4, i8)
  28       i4 = kill (i4, i4)
  29
  30       i8 = link ('foo', 'bar')
  31       i4 = link ('foo', 'bar')
  32       i = link ('foo', 'bar')
  33
  34       i8 = rename ('foo', 'bar')
  35       i4 = rename ('foo', 'bar')
  36       i = rename ('foo', 'bar')
  37
  38       i8 = symlnk ('foo', 'bar')
  39       i4 = symlnk ('foo', 'bar')
  40       i = symlnk ('foo', 'bar')
  41
  42 ! Cleaning our mess
  43       call unlink ('bar')
  44
  45 ! This should be the last test, unless you want garbage everywhere in
  46 ! your filesystem.
  47       i8 = chdir ('..')
  48       i4 = chdir ('..')
  49       i = chdir ('..')
  50
  51       end