------- Comment #9 from burnus at gcc dot gnu dot org 2008-03-25 16:04 ------- Another test case, causes an ICE with another compiler, which supports the first test case; I have not tested it with the current patch.
program test character(15) :: a(3) character(10), volatile :: b(3) b(1) = 'Takata' b(2) = 'Tanaka' b(3) = 'Hayashi' a = (/ character(len=7) :: trim(b(1)), trim(b(2)), trim(b(3)) /) print '(a)',a a = (/ character(len=2) :: trim(b(1)), trim(b(2)), trim(b(3)) /) print '(a)',a a = (/ character(len=8) :: trim(b(1)), trim(b(2)), trim(b(3)) /) print '(a)',a end program test -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27997
