diff options
author | no-author <no-author@gcc.gnu.org> | 2005-04-21 05:20:58 +0000 |
---|---|---|
committer | no-author <no-author@gcc.gnu.org> | 2005-04-21 05:20:58 +0000 |
commit | a96583a25c34e80d5920be57cc81f05621d4d9fd (patch) | |
tree | bfc8d23a253a399cac513773505c9a99e0dd70b3 /gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f | |
parent | 71e2639ee749e7d450936f8c17d3593d7f9e5ce8 (diff) |
This commit was manufactured by cvs2svn to create taggcc_4_0_0_release
'gcc_4_0_0_release'.
git-svn-id: https://gcc.gnu.org/svn/gcc/tags/gcc_4_0_0_release@98492 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/g77_intrinsics_funcs.f | 51 |
1 files changed, 51 insertions, 0 deletions
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..a2c37b03fdc --- /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 |