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