Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
der_init_4.f90
blob: d6942a2d08fa82432b5a802539a1797f263a4eca [
file
] [
log
] [
blame
]
!
PR13930
!
We
were trying to assign a
default
initializer to dummy variables
.
program der_init_4
type t
integer
::
i
=
42
end
type
call foo
(
t
(
5
))
contains
subroutine foo
(
a
)
type
(
t
),
intent
(
in
)
::
a
if
(
a
%
i
.
ne
.
5
)
STOP
1
end
subroutine
end
program