------- Comment #15 from dominiq at lps dot ens dot fr 2007-10-30 23:07 -------
Sorry, but the Tobias' patch is not enough. With the full test I get now:
Fatal Error: Reading module m_common_attrs at line 120 column 55: Expected left
parenthesis
line 120 reads:
INTEGER ()) 0 '0')) (OP (LOGICAL 4 0 0 LOGICAL ()) 0 <= (VARIABLE (
with column 55 between at =
Reduced test case
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
I don't know the module syntax and what is expected, but clearly the parser
needs some improvement(s).
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33941
