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
2006-07-23 Steven Bosscher <steven@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
der_init_4.f90
1
! PR13930
2
! We were trying to assign a default initializer to dummy variables.
3
program der_init_4
4
type t
5
integer :: i = 42
6
end type
7
8
call foo(t(5))
9
contains
10
subroutine foo(a)
11
type (t), intent(in) :: a
12
13
if (a%i .ne. 5) call abort
14
end subroutine
15
end program