Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
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