OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2010-04-06 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
bounds_check_4.f90
1
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