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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [alternate_return.f90] - Blame information for rev 816

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


program alt_return
  implicit none
 
  call myproc (1, *10, 42)
20 continue
  call abort ()
10 continue
  call myproc(2, *20, 42)
  call myproc(3, *20, 42)
contains
subroutine myproc(n, *, i)
  integer n, i
  if (i .ne. 42) call abort ()
  if (n .eq. 1) return 1
  if (n .eq. 2) return
end subroutine
end program alt_return
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`program alt_return`
2			`implicit none`
3
4			`call myproc (1, *10, 42)`
5			`20 continue`
6			`call abort ()`
7			`10 continue`
8			`call myproc(2, *20, 42)`
9			`call myproc(3, *20, 42)`
10			`contains`
11			`subroutine myproc(n, *, i)`
12			`integer n, i`
13			`if (i .ne. 42) call abort ()`
14			`if (n .eq. 1) return 1`
15			`if (n .eq. 2) return`
16			`end subroutine`
17			`end program alt_return`
18

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [alternate_return.f90] - Blame information for rev 816