[Bug fortran/32903] New: Default initializer and intent(OUT): default initializer not used

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

I found the following program on my disc; it might well belong to some PR, but
I could not find it anywhere in bugzilla.
I think the program is valid; due to the default initializer, it should print
"2" (as it does with g95, NAG f95, ifort, openf95), but gfortran prints "4".

The problem looks similar to PR31205 in so far that gfortran did the
initialization in the caller and not in the called procedure.

Dump:
set (x1) {  (void) 0; }

d.i = 4;
set (&d);


program test
  implicit none
  type data_type
    integer :: i=2
  end type data_type
  type(data_type) :: d
  d%i = 4
  call set(d)
  print *, d%i
contains
  subroutine set(x1)
    type(data_type),intent(out):: x1
  end subroutine set
end program test


-- 
           Summary: Default initializer and intent(OUT): default initializer
                    not used
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32903