2 ! Testing g77 intrinsics as subroutines
11 call hostnm (c, status = i8)
13 call hostnm (c, status = i4)
15 call hostnm (c, status = i)
19 call kill (i8, i8, status = i8)
20 call kill (i8, i8, i8)
21 call kill (i4, i8, i8)
22 call kill (i8, i4, i8)
23 call kill (i8, i8, i4)
24 call kill (i4, i4, i8)
25 call kill (i4, i8, i4)
26 call kill (i8, i4, i4)
27 call kill (i4, i4, i4)
35 call link ('foo', 'bar', status = i8)
36 call link ('foo', 'bar', status = i4)
37 call link ('foo', 'bar', status = i)
38 call link ('foo', 'bar', i8)
39 call link ('foo', 'bar', i4)
40 call link ('foo', 'bar', i)
41 call link ('foo', 'bar')
45 call rename ('foo', 'bar', status = i8)
46 call rename ('foo', 'bar', status = i4)
47 call rename ('foo', 'bar', status = i)
48 call rename ('foo', 'bar', i8)
49 call rename ('foo', 'bar', i4)
50 call rename ('foo', 'bar', i)
51 call rename ('foo', 'bar')
61 call symlnk ('foo', 'bar', status = i8)
62 call symlnk ('foo', 'bar', status = i4)
63 call symlnk ('foo', 'bar', status = i)
64 call symlnk ('foo', 'bar', i8)
65 call symlnk ('foo', 'bar', i4)
66 call symlnk ('foo', 'bar', i)
67 call symlnk ('foo', 'bar')
72 ! This should be the last test, unless you want garbage everywhere in
74 call chdir ('..', status = i8)
76 call chdir ('..', status = i4)
78 call chdir ('..', status = i)