der_init_3.f90

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

! PR15365
! Default initializers were being missed
program main
  type xyz
     integer :: x = 123
  end type xyz

  type (xyz) :: a  !! ok
  type (xyz) b    !!! not initialized !!!
  if (a%x.ne.123) call abort
  if (b%x.ne.123) call abort
end