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

[jv244 at cam dot ac dot uk]

------- Comment #6 from jv244 at cam dot ac dot uk  2007-10-26 17:54 -------
reduced testcase still failing with valgrind

  character(len=4), dimension(4) :: default_clocks=""
  call create_watch_ss('total')
contains
  subroutine create_watch_actual(clock,name)
    character(len=*), dimension(:) :: clock
    character(len=*), dimension(:) :: name
  end subroutine create_watch_actual

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


-- 


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