1! PR13930
2! We were trying to assign a default initializer to dummy variables.
3program der_init_4
4  type t
5    integer :: i = 42
6  end type
7
8  call foo(t(5))
9contains
10subroutine foo(a)
11  type (t), intent(in) :: a
12
13  if (a%i .ne. 5) call abort
14end subroutine
15end program
16