[gfortran,committed] Character length backend_decl could be given wrong type

[FX Coudert]

This patch fixes a case of character length backend_decl being given  
a type different than gfc_charlen_type_node, which I fixed by using  
the already existing gfc_conv_const_charlen() function. I also found  
another one, not yet exposed to my knowledge, in gfc_conv_aliased_arg 
(). I also took the liberty to change the return value of  
_gfortran_compare_string from an integer(kind=4) into a plain C int.

Committed as obvious after bootstrap and regtesting on x86_64-linux.

FX

-------------- next part --------------
A non-text attachment was scrubbed...
Name: foo.diff
Type: application/octet-stream
Size: 6377 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070811/6637a6fb/attachment.obj>