This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/33881] incorrect code for optional assumed length character arrays ?
- From: "jv244 at cam dot ac dot uk" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 26 Oct 2007 17:54:11 -0000
- Subject: [Bug fortran/33881] incorrect code for optional assumed length character arrays ?
- References: <bug-33881-11265@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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