Procedure Pointers: a first patch

[Tobias Burnus]

Hi all, hi Janus,

Janus Weil wrote:
>> Well, the problem is that the procedure pointer is passed as value and not
>> as reference.
>> See  http://gcc.gnu.org/ml/fortran/2008-05/msg00299.html
>>     
Try the attached patch (on top of your patch) and the attached test program:

$ gfortran proc_pointer_1.f90 proc_pointer_1_c.c
$ ./a.out
$

I'm not sure whether my patch is really elegant, but it seems to work ;-)

Tobias
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: proc_pointer_1.f90
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080621/01eccea9/attachment.f90>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: proc_pointer_1_c.c
Type: text/x-c++src
Size: 159 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080621/01eccea9/attachment.bin>
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: procptr.diff
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080621/01eccea9/attachment.ksh>