--- 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
--- Additional Comments From pinskia at gcc dot gnu dot org 2004-10-20 17:15
---
For some reason c1 and c2 are chained together in an infinite list.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18082
--- Additional Comments From reichelt at gcc dot gnu dot org 2004-10-20 16:04
---
Confirmed. Reduced testcase:
=
subroutine FOO ( X )
character(len=*), intent(IN) :: X
character(len=len(X)) :: C1, C2
C1 = ''
C2 = ''
end subroutine
--- Additional Comments From schnetter at aei dot mpg dot de 2004-10-20 15:53
---
Created an attachment (id=7386)
--> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=7386&action=view)
failing source code
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18082
