Re: Update on shared memory coarrays

[dhumieres.dominique@free.fr]

Le 2021-01-01 17:16, Thomas Koenig a écrit :
> Hi Dominique,
> 
> Happy new year to you, too, and to everybody else!
> 
>> Now the test fails with
>> 
>> mmap failed: Invalid argument
>> 
>> AFAICT this happens on the second call to map_memory.
> 
> A quick question.
> 
> Could you try the following diagnostic patch
> 
> diff --git a/libgfortran/caf_shared/shared_memory.c
> b/libgfortran/caf_shared/shared_memory.c
> index b64e40a3ded..03990550f59 100644
> --- a/libgfortran/caf_shared/shared_memory.c
> +++ b/libgfortran/caf_shared/shared_memory.c
> @@ -79,6 +79,11 @@ map_memory (int fd, size_t size, off_t offset)
>  {
>    void *ret
>        = mmap (NULL, size, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 
> offset);
> +  fprintf (stderr, "map_memory image %d size %lx offset %lx pagesize 
> %lx\n",
> +          this_image.image_num + 1, (unsigned long) size,
> +          (unsigned long) offset,
> +          (unsigned long) pagesize);
> +
>    if (ret == MAP_FAILED)
>      {program main
>   real, dimension(:), allocatable :: a[:]
>   real, dimension(:), allocatable :: b[:]
>   allocate (a(1000)[*])
>   allocate (b(2000)[3:*])
> end program main
>        perror ("mmap failed");
> 
> 
> to make sure that mmap is indeed getting the right parameters?
> 
> On my Linux box, the output looks like
> 
> map_memory image 0 size 1000 offset 0 pagesize 1000
> map_memory image 4 size 5000 offset 0 pagesize 1000
> map_memory image 2 size 5000 offset 0 pagesize 1000
> map_memory image 1 size 5000 offset 0 pagesize 1000
> map_memory image 3 size 5000 offset 0 pagesize 1000
> map_memory image 3 size d000 offset 0 pagesize 1000
> map_memory image 2 size d000 offset 0 pagesize 1000
> map_memory image 1 size d000 offset 0 pagesize 1000
> map_memory image 4 size d000 offset 0 pagesize 1000
> 
> 
> for the following little program:
> 
> program main
>   real, dimension(:), allocatable :: a[:]
>   real, dimension(:), allocatable :: b[:]
>   allocate (a(1000)[*])
>   allocate (b(2000)[3:*])
> end program main
> 
> Best regards
> 
> 	Thomas

I get

map_memory image 0 size 1000 offset 0 pagesize 1000
map_memory image 0 size 2000 offset 0 pagesize 1000
mmap failed: Invalid argument

Best regards

Dominique