! { dg-do compile }
|
! { dg-do compile }
|
! Testing g77 intrinsics as subroutines
|
! Testing g77 intrinsics as subroutines
|
integer(kind=8) i8, j8
|
integer(kind=8) i8, j8
|
integer i4, j4
|
integer i4, j4
|
integer i, j
|
integer i, j
|
character*80 c
|
character*80 c
|
|
|
call gerror (c)
|
call gerror (c)
|
call getlog (c)
|
call getlog (c)
|
|
|
call hostnm (c, status = i8)
|
call hostnm (c, status = i8)
|
call hostnm (c, i8)
|
call hostnm (c, i8)
|
call hostnm (c, status = i4)
|
call hostnm (c, status = i4)
|
call hostnm (c, i4)
|
call hostnm (c, i4)
|
call hostnm (c, status = i)
|
call hostnm (c, status = i)
|
call hostnm (c, i)
|
call hostnm (c, i)
|
call hostnm (c)
|
call hostnm (c)
|
|
|
call kill (i8, i8, status = i8)
|
call kill (i8, i8, status = i8)
|
call kill (i8, i8, i8)
|
call kill (i8, i8, i8)
|
call kill (i4, i8, i8)
|
call kill (i4, i8, i8)
|
call kill (i8, i4, i8)
|
call kill (i8, i4, i8)
|
call kill (i8, i8, i4)
|
call kill (i8, i8, i4)
|
call kill (i4, i4, i8)
|
call kill (i4, i4, i8)
|
call kill (i4, i8, i4)
|
call kill (i4, i8, i4)
|
call kill (i8, i4, i4)
|
call kill (i8, i4, i4)
|
call kill (i4, i4, i4)
|
call kill (i4, i4, i4)
|
call kill (i, i, i)
|
call kill (i, i, i)
|
call kill (i8, i8)
|
call kill (i8, i8)
|
call kill (i4, i8)
|
call kill (i4, i8)
|
call kill (i8, i4)
|
call kill (i8, i4)
|
call kill (i4, i4)
|
call kill (i4, i4)
|
call kill (i, i)
|
call kill (i, i)
|
|
|
call link ('foo', 'bar', status = i8)
|
call link ('foo', 'bar', status = i8)
|
call link ('foo', 'bar', status = i4)
|
call link ('foo', 'bar', status = i4)
|
call link ('foo', 'bar', status = i)
|
call link ('foo', 'bar', status = i)
|
call link ('foo', 'bar', i8)
|
call link ('foo', 'bar', i8)
|
call link ('foo', 'bar', i4)
|
call link ('foo', 'bar', i4)
|
call link ('foo', 'bar', i)
|
call link ('foo', 'bar', i)
|
call link ('foo', 'bar')
|
call link ('foo', 'bar')
|
|
|
call perror (c)
|
call perror (c)
|
|
|
call rename ('foo', 'bar', status = i8)
|
call rename ('foo', 'bar', status = i8)
|
call rename ('foo', 'bar', status = i4)
|
call rename ('foo', 'bar', status = i4)
|
call rename ('foo', 'bar', status = i)
|
call rename ('foo', 'bar', status = i)
|
call rename ('foo', 'bar', i8)
|
call rename ('foo', 'bar', i8)
|
call rename ('foo', 'bar', i4)
|
call rename ('foo', 'bar', i4)
|
call rename ('foo', 'bar', i)
|
call rename ('foo', 'bar', i)
|
call rename ('foo', 'bar')
|
call rename ('foo', 'bar')
|
|
|
i = 1
|
i = 1
|
i4 = 1
|
i4 = 1
|
i8 = 1
|
i8 = 1
|
call sleep (i)
|
call sleep (i)
|
call sleep (i4)
|
call sleep (i4)
|
call sleep (i8)
|
call sleep (i8)
|
call sleep (-1)
|
call sleep (-1)
|
|
|
call symlnk ('foo', 'bar', status = i8)
|
call symlnk ('foo', 'bar', status = i8)
|
call symlnk ('foo', 'bar', status = i4)
|
call symlnk ('foo', 'bar', status = i4)
|
call symlnk ('foo', 'bar', status = i)
|
call symlnk ('foo', 'bar', status = i)
|
call symlnk ('foo', 'bar', i8)
|
call symlnk ('foo', 'bar', i8)
|
call symlnk ('foo', 'bar', i4)
|
call symlnk ('foo', 'bar', i4)
|
call symlnk ('foo', 'bar', i)
|
call symlnk ('foo', 'bar', i)
|
call symlnk ('foo', 'bar')
|
call symlnk ('foo', 'bar')
|
|
|
! Cleaning our mess
|
! Cleaning our mess
|
call unlink ('bar')
|
call unlink ('bar')
|
|
|
! This should be the last test, unless you want garbage everywhere in
|
! This should be the last test, unless you want garbage everywhere in
|
! your filesystem.
|
! your filesystem.
|
call chdir ('..', status = i8)
|
call chdir ('..', status = i8)
|
call chdir ('..', i8)
|
call chdir ('..', i8)
|
call chdir ('..', status = i4)
|
call chdir ('..', status = i4)
|
call chdir ('..', i4)
|
call chdir ('..', i4)
|
call chdir ('..', status = i)
|
call chdir ('..', status = i)
|
call chdir ('..', i)
|
call chdir ('..', i)
|
call chdir ('..')
|
call chdir ('..')
|
|
|
end
|
end
|
|
|
