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