[F-E, patch]: bug fixes for type components, etc.

Christopher D. Rickett crickett@lanl.gov
Fri Jun 8 16:22:00 GMT 2007



>> Index: gcc/fortran/symbol.c
>> ===================================================================
>> --- gcc/fortran/symbol.c	(revision 125544)
>> +++ gcc/fortran/symbol.c	(working copy)
> [...]
>> @@ -3181,8 +3187,8 @@ gen_special_c_interop_ptr (int ptr_id, c
>>        generate_isocbinding_symbol (module_name, ptr_id == 
>> ISOCBINDING_NULL_PTR                                     ? ISOCBINDING_PTR 
>> : ISOCBINDING_FUNPTR,
>>                                     (char *) (ptr_id == 
>> ISOCBINDING_NULL_PTR -				   ? 
>> "_gfortran_iso_c_binding_c_ptr"
>> -				   : "_gfortran_iso_c_binding_c_funptr"));
>> +				   ? "_gfortran_iso_c_binding_c_ptr" :
>> +				   "_gfortran_iso_c_binding_c_funptr"));
>>         tmp_sym->ts.derived =
>>          get_iso_c_binding_dt (ptr_id == ISOCBINDING_NULL_PTR
>> @@ -3723,8 +3729,8 @@ generate_isocbinding_symbol (const char 
>> (mod_name, s == ISOCBINDING_FUNLOC
>>                         ? ISOCBINDING_FUNPTR : ISOCBINDING_FUNPTR,
>>                         (char *)(s == ISOCBINDING_FUNLOC - 
>> ? "_gfortran_iso_c_binding_c_funptr"
>> -				: "_gfortran_iso_c_binding_c_ptr"));
>> +				? "_gfortran_iso_c_binding_c_funptr" :
>> +				"_gfortran_iso_c_binding_c_ptr"));
>>                      tmp_sym->ts.derived =
>>                        get_iso_c_binding_dt (s == ISOCBINDING_FUNLOC
>>                                              ? ISOCBINDING_FUNPTR
>
> These two changes appear to just be introducing formatting errors, and they 
> weren't mentioned in the ChangeLog.  I presume they were included 
> accidentally?
>

yes, they were accidental; my apologies.

Chris



More information about the Fortran mailing list