URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77_intrinsics_sub.f] - Blame information for rev 853

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
! Testing g77 intrinsics as subroutines
      integer(kind=8) i8, j8
      integer 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

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2			`! Testing g77 intrinsics as subroutines`
3			`integer(kind=8) i8, j8`
4			`integer i4, j4`
5			`integer i, j`
6			`character*80 c`
7
8			`call gerror (c)`
9			`call getlog (c)`
10
11			`call hostnm (c, status = i8)`
12			`call hostnm (c, i8)`
13			`call hostnm (c, status = i4)`
14			`call hostnm (c, i4)`
15			`call hostnm (c, status = i)`
16			`call hostnm (c, i)`
17			`call hostnm (c)`
18
19			`call kill (i8, i8, status = i8)`
20			`call kill (i8, i8, i8)`
21			`call kill (i4, i8, i8)`
22			`call kill (i8, i4, i8)`
23			`call kill (i8, i8, i4)`
24			`call kill (i4, i4, i8)`
25			`call kill (i4, i8, i4)`
26			`call kill (i8, i4, i4)`
27			`call kill (i4, i4, i4)`
28			`call kill (i, i, i)`
29			`call kill (i8, i8)`
30			`call kill (i4, i8)`
31			`call kill (i8, i4)`
32			`call kill (i4, i4)`
33			`call kill (i, i)`
34
35			`call link ('foo', 'bar', status = i8)`
36			`call link ('foo', 'bar', status = i4)`
37			`call link ('foo', 'bar', status = i)`
38			`call link ('foo', 'bar', i8)`
39			`call link ('foo', 'bar', i4)`
40			`call link ('foo', 'bar', i)`
41			`call link ('foo', 'bar')`
42
43			`call perror (c)`
44
45			`call rename ('foo', 'bar', status = i8)`
46			`call rename ('foo', 'bar', status = i4)`
47			`call rename ('foo', 'bar', status = i)`
48			`call rename ('foo', 'bar', i8)`
49			`call rename ('foo', 'bar', i4)`
50			`call rename ('foo', 'bar', i)`
51			`call rename ('foo', 'bar')`
52
53			`i = 1`
54			`i4 = 1`
55			`i8 = 1`
56			`call sleep (i)`
57			`call sleep (i4)`
58			`call sleep (i8)`
59			`call sleep (-1)`
60
61			`call symlnk ('foo', 'bar', status = i8)`
62			`call symlnk ('foo', 'bar', status = i4)`
63			`call symlnk ('foo', 'bar', status = i)`
64			`call symlnk ('foo', 'bar', i8)`
65			`call symlnk ('foo', 'bar', i4)`
66			`call symlnk ('foo', 'bar', i)`
67			`call symlnk ('foo', 'bar')`
68
69			`! Cleaning our mess`
70			`call unlink ('bar')`
71
72			`! This should be the last test, unless you want garbage everywhere in`
73			`! your filesystem.`
74			`call chdir ('..', status = i8)`
75			`call chdir ('..', i8)`
76			`call chdir ('..', status = i4)`
77			`call chdir ('..', i4)`
78			`call chdir ('..', status = i)`
79			`call chdir ('..', i)`
80			`call chdir ('..')`
81
82			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77_intrinsics_sub.f] - Blame information for rev 853