2 ! { dg-options "-std=legacy" }
4 ! Testing g77 intrinsics as subroutines
32 i8 = link ('foo', 'bar')
33 i4 = link ('foo', 'bar')
34 i = link ('foo', 'bar')
36 i8 = rename ('foo', 'bar')
37 i4 = rename ('foo', 'bar')
38 i = rename ('foo', 'bar')
40 i8 = symlnk ('foo', 'bar')
41 i4 = symlnk ('foo', 'bar')
42 i = symlnk ('foo', 'bar')
47 ! This should be the last test, unless you want garbage everywhere in