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