------- Comment #10 from fxcoudert at gcc dot gnu dot org  2007-10-30 16:23 
-------
Further reduced:

module foo
contains
  function pop(n) result(item)
    integer :: n
    character(len=merge(0, 0, n > 0)) :: item
  end function pop
end module foo

program test
  use foo
end program


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |fxcoudert at gcc dot gnu dot
                   |                            |org
   Last reconfirmed|0000-00-00 00:00:00         |2007-10-30 16:23:26
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33941

Reply via email to