3 files changed, 139 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6ea0ee910a5..4b33170e1b3 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-22  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* g77_intrinsics_funcs.f: New test.
+	* g77_intrinsics_sub.f: New test.
+
 2005-03-22  Richard Guenther <rguenth@tat.physik.uni-tuebingen.de>
 	    Jan Hubicka  <jh@suse.cz>
 	    Steven Bosscher <stevenb@suse.de
@@ -68,6 +73,7 @@
 	* gcc.c-torture/compile/pr20539-1.c: Likewise.
 	* g++.dg/opt/pr13066-1.C: Likewise.
 
+>>>>>>> 1.5197
 2005-03-20  Joseph S. Myers  <joseph@codesourcery.com>
 
 	* gcc.dg/bitfld-14.c, gcc.dg/enum3.c: New tests.
diff --git a/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f b/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f
new file mode 100644
index 00000000000..fa09024411d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f
@@ -0,0 +1,51 @@
+! {dg-do compile}
+! Testing g77 intrinsics as subroutines
+      integer*8 i8
+      integer*4 i4
+      integer i
+      character*80 c
+
+      i8 = time ()
+      i4 = time ()
+      i8 = time8 ()
+      i4 = time8 ()
+
+      i8 = hostnm (c)
+      i4 = hostnm (c)
+      i = hostnm (c)
+
+      i8 = ierrno ()
+      i4 = ierrno ()
+      i = ierrno ()
+
+      i8 = kill (i8, i8)
+      i8 = kill (i8, i4)
+      i8 = kill (i4, i8)
+      i8 = kill (i4, i4)
+      i4 = kill (i8, i8)
+      i4 = kill (i8, i4)
+      i4 = kill (i4, i8)
+      i4 = kill (i4, i4)
+
+      i8 = link ('foo', 'bar')
+      i4 = link ('foo', 'bar')
+      i = link ('foo', 'bar')
+
+      i8 = rename ('foo', 'bar')
+      i4 = rename ('foo', 'bar')
+      i = rename ('foo', 'bar')
+      
+      i8 = symlnk ('foo', 'bar')
+      i4 = symlnk ('foo', 'bar')
+      i = symlnk ('foo', 'bar')
+      
+! Cleaning our mess
+      call unlink ('bar')
+
+! This should be the last test, unless you want garbage everywhere in
+! your filesystem.
+      i8 = chdir ('..')
+      i4 = chdir ('..')
+      i = chdir ('..')
+
+      end
diff --git a/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f b/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f
new file mode 100644
index 00000000000..5a4744697bd
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77_intrinsics_sub.f
@@ -0,0 +1,82 @@
+! {dg-do compile}
+! Testing g77 intrinsics as subroutines
+      integer*8 i8, j8
+      integer*4 i4, j4
+      integer i, j
+      character*80 c
+
+      call gerror (c)
+      call getlog (c)
+
+      call hostnm (c, status = i8)
+      call hostnm (c, i8)
+      call hostnm (c, status = i4)
+      call hostnm (c, i4)
+      call hostnm (c, status = i)
+      call hostnm (c, i)
+      call hostnm (c)
+
+      call kill (i8, i8, status = i8)
+      call kill (i8, i8, i8)
+      call kill (i4, i8, i8)
+      call kill (i8, i4, i8)
+      call kill (i8, i8, i4)
+      call kill (i4, i4, i8)
+      call kill (i4, i8, i4)
+      call kill (i8, i4, i4)
+      call kill (i4, i4, i4)
+      call kill (i, i, i)
+      call kill (i8, i8)
+      call kill (i4, i8)
+      call kill (i8, i4)
+      call kill (i4, i4)
+      call kill (i, i)
+
+      call link ('foo', 'bar', status = i8)
+      call link ('foo', 'bar', status = i4)
+      call link ('foo', 'bar', status = i)
+      call link ('foo', 'bar', i8)
+      call link ('foo', 'bar', i4)
+      call link ('foo', 'bar', i)
+      call link ('foo', 'bar')
+
+      call perror (c)
+      
+      call rename ('foo', 'bar', status = i8)
+      call rename ('foo', 'bar', status = i4)
+      call rename ('foo', 'bar', status = i)
+      call rename ('foo', 'bar', i8)
+      call rename ('foo', 'bar', i4)
+      call rename ('foo', 'bar', i)
+      call rename ('foo', 'bar')
+
+      i = 1
+      i4 = 1
+      i8 = 1
+      call sleep (i)
+      call sleep (i4)
+      call sleep (i8)
+      call sleep (-1)
+
+      call symlnk ('foo', 'bar', status = i8)
+      call symlnk ('foo', 'bar', status = i4)
+      call symlnk ('foo', 'bar', status = i)
+      call symlnk ('foo', 'bar', i8)
+      call symlnk ('foo', 'bar', i4)
+      call symlnk ('foo', 'bar', i)
+      call symlnk ('foo', 'bar')
+
+! Cleaning our mess
+      call unlink ('bar')
+
+! This should be the last test, unless you want garbage everywhere in
+! your filesystem.
+      call chdir ('..', status = i8)
+      call chdir ('..', i8)
+      call chdir ('..', status = i4)
+      call chdir ('..', i4)
+      call chdir ('..', status = i)
+      call chdir ('..', i)
+      call chdir ('..')
+
+      end