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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_4.f90] - Blame information for rev 399

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


subroutine foo(n,x)
  implicit none
  integer, intent(in) :: n
  complex(8), intent(out) :: x(n,*)
  x(1,1) = 0.d0
  x(n,1) = 0.d0
  x(:,1) = 0.d0
  x(2:,1) = 0.d0
  x(:n-1,1) = 0.d0
  x((/1,n/),1) = 0.d0
end subroutine foo
 
program test
  implicit none
  integer, parameter :: n = 17
  complex(8) :: x(n,n)
  call foo(n,x)
end program test

Line No.	Rev	Author	Line
1	302	jeremybenn	`subroutine foo(n,x)`
2			`implicit none`
3			`integer, intent(in) :: n`
4			`complex(8), intent(out) :: x(n,*)`
5			`x(1,1) = 0.d0`
6			`x(n,1) = 0.d0`
7			`x(:,1) = 0.d0`
8			`x(2:,1) = 0.d0`
9			`x(:n-1,1) = 0.d0`
10			`x((/1,n/),1) = 0.d0`
11			`end subroutine foo`
12
13			`program test`
14			`implicit none`
15			`integer, parameter :: n = 17`
16			`complex(8) :: x(n,n)`
17			`call foo(n,x)`
18			`end program test`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [bounds_check_4.f90] - Blame information for rev 399