Two bugs in parsing related to parentheses in strings

[certik]

This code:

program testX
real(4) :: x
real(int(sin(0.5))+8+len("ab((c")-3) :: y
end program

and this code:

program testX
real(4) :: x
real(int(sin(0.5))+8+len("ab))c")-3) :: y
end program

Both give an incorrect type when you hover over "y", I think one gives real(int(sin(0.5))+8+len("ab)) and the other one gives real(int(sin(0.5))+8+len("abc") or something like that.