------- Comment #2 from fxcoudert at gcc dot gnu dot org 2007-08-14 09:04
-------
write(6,*) (/(s1(),i=1,3,-1)/)
!write(6,*) shape((/(s1(),i=1,3,-1)/))
contains
function s1()
character(len=1) :: s1
s1=" "
end function s1
end
Further reduced: no need for the substring in s1. You can also get an ICE by
replacing the first WRITE statement with one using SHAPE.
--
fxcoudert at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Last reconfirmed|2007-07-24 10:09:58 |2007-08-14 09:04:21
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32875
