der_init_4.f90   [plain text]

! 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) call abort
end subroutine
end program