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
2005-01-11 Paul Thomas <pault@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr16861.f90
1
! PR fortran/16861
2
! { dg-do run }
3
module foo
4
integer :: i
5
end module foo
6
7
module bar
8
contains
9
subroutine baz(j)
10
use foo
11
integer, dimension(i) :: j
12
integer :: n
13
14
do n = 1, i
15
if (j(n) /= n**2) call abort
16
end do
17
end subroutine baz
18
end module bar
19
20
subroutine quus()
21
use foo
22
use bar
23
24
i = 2
25
call baz ((/1,4/))
26
i = 7
27
call baz ((/1,4,9,16,25,36,49/))
28
end subroutine quus
29
30
program test
31
call quus
32
end program test