[Bug fortran/33881] [4.3 Regression] incorrect code for optional assumed length character arrays ?

[fxcoudert at gcc dot gnu dot org]

------- Comment #8 from fxcoudert at gcc dot gnu dot org  2007-10-26 22:26 -------
Reduced-reduced testcase which still triggers valgrind:

  call create_watch_ss(" ")
contains
  subroutine create_watch_actual(name)
    character(len=1) :: name(1)
  end subroutine create_watch_actual

  subroutine create_watch_ss(name,clock)
    character(len=*) :: name
    integer, optional :: clock
    if (present(clock)) then
      call create_watch_actual((/name/))
    else
      call create_watch_actual((/name/))
    end if
  end subroutine create_watch_ss
end

It's apparent form the dump that, in the second branch of the IF, we use
variables declared in the first branch.


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |fxcoudert at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2007-10-26 07:17:07         |2007-10-26 22:26:14
               date|                            |


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