------- Comment #3 from sje at cup dot hp dot com 2007-01-12 21:54 ------- My example code got a little messed up in the last comment, here it is again:
C code:
void f_to_f__(int i, float a1)
{
printf("a1 = %f\n", (double) a1);
return;
}
Fortran code:
program c_by_val_1
external f_to_f
real a
integer i
a = 42.0
call f_to_f (i, %VAL (a))
stop
end
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30432
