------- Additional Comments From tobi at gcc dot gnu dot org 2004-10-21 19:01 ------- =================== subroutine FOO ( X ) character(len=*), intent(IN) :: X character(len=len(X)) :: C1 character(len=len(X)) :: C2 ! two lines C1 = '' C2 = '' end subroutine =================== doesn't show the problem, so this is a problem in how we share the lengths of different automatic length character entities. (the character lengths of objects declared on the same line are shared, unless assumed length)
-- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18082
