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
/
pr19926.f90
1
! { dg-do run }
2
module b
3
type cat
4
integer :: i = 0
5
end type cat
6
end module b
7
8
program a
9
use b
10
type(cat) z
11
integer :: i = 0, j(4,3,2) = 0
12
call string_comp(i)
13
if (i /= 3) call abort
14
call string_comp(z%i)
15
if (z%i /= 3) call abort
16
call string_comp(j(1,2,1))
17
if (j(1,2,1) /= 3) call abort
18
end program a
19
20
subroutine string_comp(i)
21
integer, parameter :: map(0:50) = 3
22
integer :: i
23
i = map(42)
24
end subroutine string_comp
25