This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: ISO C binding and character variables
Hi Chris,
Christopher D. Rickett wrote:
> i modified the way by-value character args are handled for bind(c)
> procedures and i want to see if it's behaving more as expected.
> [...]
>
> param_test (my_char, my_char_2, _my_char, _my_char_2)
> {
> if (my_char != 121)
> if (my_char_2 != 122)
I think it looks ok now. But you need to attach the patch so one can
check and/or test it ;-)
I wonder whether for non-VALUE scalar, bind(c) character variables one
should do something similar:
if ((*a)[1]{lb: 1 sz: 1} != 49)
would become
if(*a != 49)
However, I don't know whether any platform or the middle end cares.
Tobias