der_init_4.f90

linux下编程用 编译软件

! PR13930
! We were trying to assugn 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