der_init_4.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 16 行

! 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