From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from zm-mta-out-3.u-ga.fr (zm-mta-out-3.u-ga.fr [152.77.200.56]) by sourceware.org (Postfix) with ESMTPS id F26983858C01 for ; Wed, 23 Aug 2023 10:19:32 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org F26983858C01 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=univ-grenoble-alpes.fr Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=univ-grenoble-alpes.fr Received: from mailhub.u-ga.fr (mailhub-1.u-ga.fr [129.88.178.98]) by zm-mta-out-3.u-ga.fr (Postfix) with ESMTP id 3AD8940234 for ; Wed, 23 Aug 2023 12:19:30 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=univ-grenoble-alpes.fr; s=2020; t=1692785970; bh=AImfUiT2beYyJ2+hMoyiShzlCe+b+Gd8CQJjqkEYMM0=; h=Date:To:From:Subject:From; b=2uhuOazTmeJ9K+Nj0A60zH7cjmTX8xW5ezRUoO6r7bNK+3SZxhQYAfQiefTJNx9sM Ap5aj4BSr1oDQ3+UQpFxQbn5nUr74Wfr0AB39Wd5/9944UJY7LB8GKqZM8lrBTUnqF C+19ESTZucD5TAeP4vlK1bTR0susszopktzFK+5Qnr/ItsQi7E2ehEYY/nfyaSF7GA 3porllAM8NsWCBk13FTNjRWYJq/Oq+S8CXKsi2MceiZAaCqo1NRY2jrZUUlazJKCWh lfMTRaVaukD3IiuX6TzbqSlURhGBy5AjBaqIPEzV45PP25AfFXcg2MsmFS7Hm3VynE aqsGIKMJq+GFw== Received: from smtps.univ-grenoble-alpes.fr (smtps3.u-ga.fr [195.83.24.62]) by mailhub.u-ga.fr (Postfix) with ESMTP id 3869310005A; Wed, 23 Aug 2023 12:19:30 +0200 (CEST) Received: from [195.220.26.220] (most6ltpb220.legi.grenoble-inp.fr [195.220.26.220]) (using TLSv1.3 with cipher TLS_AES_128_GCM_SHA256 (128/128 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) (Authenticated sender: begoup@univ-grenoble-alpes.fr) by smtps.univ-grenoble-alpes.fr (Postfix) with ESMTPSA id 2CDF740085; Wed, 23 Aug 2023 12:19:30 +0200 (CEST) Content-Type: multipart/mixed; boundary="------------kJ0ULbuw5cJhMOhjRAz3wRPO" Message-ID: <1c45183d-cd8f-8672-d9b1-95a59314c51b@univ-grenoble-alpes.fr> Date: Wed, 23 Aug 2023 12:19:30 +0200 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.14.0 To: fortran@gcc.gnu.org Content-Language: fr, en-GB From: Patrick Begou Subject: Help with fortran pointer ans OpenACC X-Greylist: Whitelist-UGA SMTP Authentifie (begoup@univ-grenoble-alpes.fr) via submission-587 ACL (41) X-Spam-Status: No, score=-2.0 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,HTML_MESSAGE,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: This is a multi-part message in MIME format. --------------kJ0ULbuw5cJhMOhjRAz3wRPO Content-Type: multipart/alternative; boundary="------------Z1Snla3PKebrdxFW0n1Tt2wr" --------------Z1Snla3PKebrdxFW0n1Tt2wr Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Hi everyone! For several days I have some trouble with OpenACC offloading and fortran pointers. I'm testing with a very small peace of code to investigate but I do not progress for several days and I need your help. The attached code goal is just to initialize some data on the GPU and is representative of my problem on a very large code. - It works fine with nvfortran (22.11) - it do not work with Gnu fortran (14.0.0 20230822 - experimental)  => invalid memory - it do not work with  Cray Fortran (15.1) => wrong results so I think the problem is the code, not the compiler. It is also difficult to find some openACC offloading examples using Fortran pointers and I'm stuck with this problem. Could someone give me advices or a small explanation on what I have not understood there ? Thanks for your help Patrick Code details: - all my fortran modules are grouped in the same file for simplification of the provided test-case. - compilation with GNU Firtran is: "gfortran -cpp -g -fopenacc grouped.f90" - setting  "runongpu=.false." line 7 (no GPU) the result is:  Default init OK  Default value OK - setting  "runongpu=.true." line 7 (no GPU) the result is: Default init OK libgomp: cuStreamSynchronize error: an illegal memory access was encountered - with nvhpc/22.11 and "runongpu=.true.", built with  "nvfortran -acc=gpu,noautopar  -gpu=cc80 -Minfo=accel grouped.f90" Default init OK Default value OK --------------Z1Snla3PKebrdxFW0n1Tt2wr-- --------------kJ0ULbuw5cJhMOhjRAz3wRPO Content-Type: text/x-fortran; charset=UTF-8; name="grouped.f90" Content-Disposition: attachment; filename="grouped.f90" Content-Transfer-Encoding: base64 IT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09CiEgSnVzdCB0byBzYXkgcnVuIG9uIHRo ZSBkZXZpY2Ugb3Igbm90LgohPT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KbW9kdWxl IG9wZW5hY2NfZGVmcwoKICAgICAgaW1wbGljaXQgbm9uZQogICAgICBsb2dp Y2FsLCBzYXZlIDo6IHJ1bm9uZ3B1PS50cnVlLgplbmQgbW9kdWxlIG9wZW5h Y2NfZGVmcwoKCgohPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KISBEYXRhIHN0cnVj dHVyZSBmb3IgcjJfdGFiIGFuZCByMl9wdHIgdG8gbWFuYWdlIHBvaW50ZXJz LgohIHIyX3B0ciBpcyB1c2VkIGluIGFuIGFsbG9jYXRhYmxlIGFycmF5IGZv ciBhIGR5bmFtaXZjIG51bWJlciBvZiByMl90YWIgdmFyaWFibGVzCiEgYnV0 IGNvdWxkIGJlIHVzZWQgbGF0ZXIgaW4gY2hhaW5lZCBsaXN0cwohIE1lbW9y eSBpcyBhbGxvY2F0ZWQgb24gR1BVIGVhY2ggdGltZS4KIT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09Cgptb2R1bGUgdGFiX20KCiAgaW1wbGljaXQgbm9uZQoKICAg ICB0eXBlIHIyX3RhYgogICAgICAgICAgICAgZG91YmxlIHByZWNpc2lvbiwg ZGltZW5zaW9uKDosOiksIGFsbG9jYXRhYmxlIDo6IHZhbAogICAgICAgICAg ICAgaW50ZWdlciA6OiBkaW0xCiAgICAgICAgICAgICBpbnRlZ2VyIDo6IGRp bTIKICAgICBlbmQgdHlwZSByMl90YWIKCiAgICAgdHlwZSByMl9wdHIKICAg ICAgICAgdHlwZShyMl90YWIpLCBwb2ludGVyIDo6IHB0cgogICAgICAgICB0 eXBlKHIyX3B0ciksIHBvaW50ZXIgOjogbmV4dAogICAgIGVuZCB0eXBlIHIy X3B0cgoKCmNvbnRhaW5zCgogICAgc3Vicm91dGluZSAgbmV3X3IyX3RhYih0 YWIsbixtKQogICAgaW1wbGljaXQgbm9uZQogICAgaW50ZWdlciwgaW50ZW50 KGluKSA6Om4sbQogICAgdHlwZShyMl90YWIpLCBwb2ludGVyLCBpbnRlbnQo aW5vdXQpIDo6dGFiCiAgICAhLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t LQoKICAgICAgIGlmICgubm90LiBhc3NvY2lhdGVkKHRhYikpIGFsbG9jYXRl KHRhYikKICAgICAgIGlmIChhbGxvY2F0ZWQodGFiJXZhbCkpIGRlYWxsb2Nh dGUodGFiJXZhbCkKCiAgICAgICBhbGxvY2F0ZSAodGFiJXZhbChuLG0pKQog ICAgICAgdGFiJWRpbTE9bgogICAgICAgdGFiJWRpbTI9bQogICAgICAgdGFi JXZhbCg6LDopPTEuMEQwICAgICAgICAgCiAgICAgICAhJGFjYyBlbnRlciBk YXRhIGNyZWF0ZSh0YWIpCiAgICAgICAhJGFjYyBlbnRlciBkYXRhIGNyZWF0 ZSh0YWIldmFsKQogICAgZW5kIHN1YnJvdXRpbmUgbmV3X3IyX3RhYgoKZW5k IG1vZHVsZSB0YWJfbQoKIT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09CiEgVGhpcyBt b2R1bGUgaW1wbGVtZW50cyBkYXRhIHByb2Nlc3NpbmcgKGp1c3QgYW4gaW5p dGlhbGl6YXRpb24gaGVyZSkKISBpZiBydW5vbmdwdSBpcyAudHJ1ZS4gaW5p dGlhbGl6YXRpb24gaXMgcnVuIG9uIHRoZSBHUFUgYW5kIHRoZW4gaG9zdCBp cyB1cGRhdGVkLgohPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0KbW9kdWxlIG1hbmFn ZV9kYXRhCiAgIHVzZSBvcGVuYWNjX2RlZnMKICAgdXNlIHRhYl9tCiAgIGlt cGxpY2l0IG5vbmUKCiAgIGNvbnRhaW5zCgogICBzdWJyb3V0aW5lIHNldF9k ZWZhdWx0X3ZhbF9ncHUobGlzdGUsIGRlZnZhbCwgbml0ZW1zKQogICAgIGlt cGxpY2l0IG5vbmUKICAgICBpbnRlZ2VyLCBpbnRlbnQoaW4pIDo6IG5pdGVt cwogICAgIGRvdWJsZSBwcmVjaXNpb24sIGludGVudChpbikgOjogZGVmdmFs CiAgICAgdHlwZShyMl9wdHIpLCBkaW1lbnNpb24obml0ZW1zKSA6OiBsaXN0 ZQoKICAgICB0eXBlKHIyX3RhYiksIHBvaW50ZXIgOjogY3VycmVudD0+bnVs bCgpCiAgICAgaW50ZWdlcjo6IGl0ZW0saixrCgogICAgIGRvIGl0ZW09MSwg bml0ZW1zCiAgICAgICAgY3VycmVudD0+bGlzdGUoaXRlbSklcHRyCiEgICAg ICAgIHByaW50KixjdXJyZW50JWRpbTEsIGN1cnJlbnQlZGltMixzaXplKGN1 cnJlbnQldmFsKQoKICAgICAgICAhJGFjYyBwYXJhbGxlbCBsb29wIGNvbGxh cHNlKDIpIGRlZmF1bHQocHJlc2VudCkgaWYocnVub25ncHUpCiAgICAgICAg ZG8gaz0xLCBjdXJyZW50JWRpbTIKICAgICAgICAgICBkbyBqPTEsIGN1cnJl bnQlZGltMQogICAgICAgICAgICAgIGN1cnJlbnQldmFsKGosayk9ZGVmdmFs CiAgICAgICAgICAgZW5kIGRvCiAgICAgICAgZW5kIGRvCiAgICAgICAgISRh Y2MgdXBkYXRlIGlmKHJ1bm9uZ3B1KSBob3N0KGN1cnJlbnQldmFsKQogICAg IGVuZCBkbwogICBlbmQgc3Vicm91dGluZSBzZXRfZGVmYXVsdF92YWxfZ3B1 CgplbmQgbW9kdWxlIG1hbmFnZV9kYXRhCgoKIT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09CiEgbWFpbiBwcm9ncmFtLgohCiE9PT09PT09PT09PT09PT09PT09PT09 PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQoK cHJvZ3JhbSBtYWluCiAgICAgIHVzZSB0YWJfbQogICAgICB1c2UgbWFuYWdl X2RhdGEKICAgICAgaW1wbGljaXQgbm9uZQoKICAgICAgaW50ZWdlciwgcGFy YW1ldGVyOjogTj01CiAgICAgIHR5cGUocjJfcHRyKSwgZGltZW5zaW9uKE4p IDo6IGxpc3RlCiAgICAgIGludGVnZXI6OiBpLGosawogICAgICB0eXBlKHIy X3RhYiksIHBvaW50ZXIgOjogY3VycmVudD0+bnVsbCgpCiAgICAgIGRvdWJs ZSBwcmVjaXNpb24gOjogdG90YWwKCiAgICAgISBJbml0aWFsaXplIAogICAg IGRvIGk9MSxOCiAgICAgICAgIG51bGxpZnkobGlzdGUoaSklcHRyKQogICAg ICAgICBudWxsaWZ5KGxpc3RlKGkpJW5leHQpCiAgICAgZW5kIGRvCgogICAg ICEgQWxsb2NhdGUgKGRvIG5vdCBtYW5hZ2UgIm5leHQiIHBvaW50ZXIsIGFs bCBlbGVtZW50cyBhcmUgc2V0IHRvIDEuMCkKICAgICBkbyBpPTEsTgogICAg ICAgIGNhbGwgbmV3X3IyX3RhYihsaXN0ZShpKSVwdHIsTixpKk4pCiAgICAg ZW5kIGRvCgogICAgICEgQ2hlY2sgYWxsIGlzIGNvcnJlY3Qgb24gaG9zdCBz aWRlCiAgICAgZG8gaT0xLE4KICAgICAgICBpZiAoc3VtKGxpc3RlKGkpJXB0 ciV2YWwpIC5ORS4gTippKk4pIHRoZW4KICAgICAgICAgICB3cml0ZSg2LCop IlNvbWV0aGluZyBnb2VzIHdyb25nIixzdW0obGlzdGUoaSklcHRyJXZhbCks IiAhPSAiLE4qaSpOCiAgICAgICAgICAgU1RPUCAoMSkKICAgICAgICBlbmQg aWYKICAgICBlbmQgZG8KICAgICB3cml0ZSg2LCopICJEZWZhdWx0IGluaXQg T0siCgogICAgICEgVXBkYXRlIG9uIGhvc3QgKHJ1bm9uZ3B1IGlzIGZhbHNl KQogICAgIGNhbGwgc2V0X2RlZmF1bHRfdmFsX2dwdShsaXN0ZSwgMi4wRDAs IE4pCgogICAgICEgQ2hlY2sgYWxsIGlzIGNvcnJlY3Qgb24gaG9zdCBzaWRl CiAgICAgZG8gaT0xLE4KICAgICAgICBpZiAoc3VtKGxpc3RlKGkpJXB0ciV2 YWwpIC5ORS4gMipOKmkqTikgdGhlbgogICAgICAgICAgIHdyaXRlKDYsKiki U29tZXRoaW5nIGdvZXMgd3JvbmciLHN1bShsaXN0ZShpKSVwdHIldmFsKSwi ICE9ICIsMipOKmkqTgogICAgICAgICAgICFTVE9QICgxKQogICAgICAgIGVu ZCBpZgogICAgIGVuZCBkbwogICAgIHdyaXRlKDYsKikgIkRlZmF1bHQgdmFs dWUgT0siCgplbmQgcHJvZ3JhbSBtYWluCg== --------------kJ0ULbuw5cJhMOhjRAz3wRPO--