This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [Patch, Fortran] PR 18918 - Fix/Add multi-image support to UCOBOUND


*ping*

http://gcc.gnu.org/ml/fortran/2011-04/msg00041.html

On 05.04.2011 19:44, Tobias Burnus wrote:
This patch adds multi-image support to UCOBOUND. In the -fcoarray=single case, the last dimension is just "LCOARRAY (coarray, dim=corank)". However, if there are multiple images, one has for corank-1 coarrays: "lcobound(coarray) + num_images() -1" and for multi-rank coarrays for the last dimension "lcobound(coarray, dim=corank) + ceiling (real (num_images ()) / real (size)) - 1", where size is the product of the extends in all but the last codimension.

Well, that's actually all the patch does. (Except that "ceiling(N/S)-1" is replaced by "(N+S-1)/S-1" = "(N-1)/S".)

Build an regtested on x86-64-linux.
OK for the trunk?


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]