------- 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