der_init_3.f90

linux下编程用 编译软件

! 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