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
2011-08-18 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
assumed_dummy_2.f90
1
! { dg-do compile }
2
3
double precision :: arr(5, 8)
4
call bar (arr)
5
contains
6
subroutine foo (arr)
7
double precision :: arr(:,:)
8
arr(3, 4) = 24
9
end subroutine foo
10
subroutine bar (arr)
11
double precision :: arr(5,*)
12
call foo (arr) ! { dg-error "cannot be an assumed-size array" }
13
call foo (arr (:, :8))
14
end subroutine
15
end