Re: [Fortran] Help with intrinsic function returning array

[Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>]

Hi,

actually I've already tried that way but the size of the array
returned by the function cannot be computed by the compiler. The
number of failed images is an information contained in OpenCoarrays
(which is an external library).

Here is an example:

program fail
integer, allocatable :: failed(:)

failed = failed_images()

end program

In this case I expect to see the assignment translated into something like:

failed.data = _gfortran_caf_failed_images(&size,0B,0B);
failed.offset = -1;
failed.dim[0].lbound = 1;
failed.dim[0].ubound = size;



2016-05-16 14:06 GMT-06:00 Mikael Morin <mikael.morin@sfr.fr>:
> Le 11/05/2016 23:35, Alessandro Fanfarillo a écrit :
>>
>> Dear all,
>>
>> I'm encountering some difficulties with implementing the intrinsic
>> function "failed_images" defined in the latest TS-18508
>>
>> (http://isotc.iso.org/livelink/livelink?func=ll&objId=17288706&objAction=Open).
>>
>> The idea is to call the external _gfortran_caf_failed_images function
>> (implemented in OpenCoarrays) than returns a rank-1 integer array
>> representing the list of coarray images that have been failed
>> (detected by the calling images).
>> Of course, the number of failed images is not known a-priori by the
>> user, thus the list should be stored in an allocatable array.
>>
>> So far, I pass by reference the variable representing the list length
>> to the _gfortran_caf_failed_images function; once returned, this value
>> contains the number of elements composing the array.
>> Then, I manually build a temporary array, setting the right
>> bounds,type,data and offset.
>>
>> What I would like to do is to assign this temporary array to the
>> variable on the lhs of the assignment.
>>
>> I noticed several routines that manage the situation of a function
>> returning an array but it is not clear to me how to adapt them to my
>> situation.
>>
>> In attachment you can find what I've done so far; the function that
>> I'm referring to is gfc_conv_intrinsic_failed_images.
>>
>> Thanks in advance for your support.
>>
>> Regards,
>>
>> Alessandro
>>
> Hello,
>
> is there something preventing you from passing the variable's array
> descriptor address directly to the function, so that it's already all setup
> and assigned upon return?
> I think that would be the easiest. Namely add the GFC_ISYM_FAILED_IMAGES to
> gfc_is_intrinsic_libcall, and see whether it works automatically (no
> promise).
>
> Mikael
>