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 ABB083858D28 for ; Wed, 30 Aug 2023 13:56:58 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org ABB083858D28 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 18E184028A; Wed, 30 Aug 2023 15:56:57 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=univ-grenoble-alpes.fr; s=2020; t=1693403817; bh=fP8+AuoWKFOdEbjVPSWxEjhyJLxZxQt7+kBBXpk8NoA=; h=Date:To:From:Subject:From; b=LiVebaLFPTimvMM4avpO6rRwb5fHmAYDbsupwmkppMe+OGoyvUDzAXeZvKsKB5Jxm adxIx9zt5/px3c2skZZoSdTsNaSLtSvCPZT19Kts7xRxvWGSQGyyHWz+CiBgexuC3i GMbgI8RmB6Rw5J0GKsykttq25AnWBv4fDzNGlseFK6WjlaBMf05Te4ap+Li/wGHFTG f78rCxjRQNEXgNAcDmiWR+8zxLqk8/hM13XwSxWYQAz8rW4z/ZuI49gkvkqBpH5uY3 tqEmAxhunlSzWyirHUl4X/cmtHFm3h9Q7NQkfgy4x05IU+bDL9+AW4Z7qSK2RgCGfu a2nF7NZXDWBZA== Received: from smtps.univ-grenoble-alpes.fr (smtps3.u-ga.fr [195.83.24.62]) by mailhub.u-ga.fr (Postfix) with ESMTP id 16A5F10005A; Wed, 30 Aug 2023 15:56:57 +0200 (CEST) Received: from [192.168.1.168] (82-64-214-7.subs.proxad.net [82.64.214.7]) (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 EDCD340053; Wed, 30 Aug 2023 15:56:56 +0200 (CEST) Content-Type: multipart/mixed; boundary="------------2ehXwwOGvj3AFvVhwF5GBsVZ" Message-ID: <14c5071c-d998-cb81-34db-3d84394e18fd@univ-grenoble-alpes.fr> Date: Wed, 30 Aug 2023 15:56:56 +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 (again) with fortran pointer and OpenACC X-Greylist: Whitelist-UGA SMTP Authentifie (begoup@univ-grenoble-alpes.fr) via submission-587 ACL (41) X-Spam-Status: No, score=0.9 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,KAM_ASCII_DIVIDERS,KAM_SHORT,RCVD_IN_BARRACUDACENTRAL,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=no 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. --------------2ehXwwOGvj3AFvVhwF5GBsVZ Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Hi, I would like to ask some comments about a small piece of code that reflect many algorithms in a large application I try to move to openACC with gfortran. This code manage a pointer to a user defined type with an allocatable. I've no problem to allocate and work with this type on the cpu and on the gpu but a problem raise when I try to reallocate the allocatable part to a different size (in the "do iter=1,2" loop of the main program). Each time ligomp raises: libgomp: cuStreamSynchronize error: an illegal memory access was encountered I've followed Tobias Burnus suggestions in a previous thread with options like : gfortran -g -fopenacc -cpp  -fdump-tree-original -fdump-tree-gimple -fdump-tree-omplower -o testcase_begou testcase_begou.f90 but I've some difficulties to understand the details like: #pragma acc parallel map(force_present:*tab) map(alloc:tab [pointer assign, bias: 0]) collapse(2) for line 80 in the file: !$acc parallel loop present(tab) collapse(2) as it seams to allocate something on the GPU while it's yet available? Not sure. As I try for several weeks to modify this code (it works with Nvfortran and Cray Fortran but still not with GNU) to solve the problem I would like to ask some OpenACC experts if this code is valid or just benefit of some compiler indulgence. I've open some month ago a PR https://gcc.gnu.org/bugzilla/attachment.cgi?id=54970, but if the problem is a bad fortran code I will have to remove also this report as they are many reports waiting to be processed yet. At the opposite, if it is a compiler problem I should stop spending time on this piece of code and wait for Gfortran improvement. Thanks for your advices Patrick --------------2ehXwwOGvj3AFvVhwF5GBsVZ Content-Type: text/x-fortran; charset=UTF-8; name="testcase_begou.f90" Content-Disposition: attachment; filename="testcase_begou.f90" Content-Transfer-Encoding: base64 bW9kdWxlIHRhYl9tCgojaWZkZWYgX09QRU5BQ0MKICAgICAgdXNlIG9wZW5hY2MsICAgICAg ICAgICAgb25seTogYWNjX2lzX3ByZXNlbnQKI2VuZGlmCgogIGltcGxpY2l0IG5vbmUKCiAg ICAgdHlwZSByMnRhYgogICAgICAgICAgICAgZG91YmxlIHByZWNpc2lvbiwgZGltZW5zaW9u KDosOiksIGFsbG9jYXRhYmxlIDo6IHZhbAogICAgICAgICAgICAgaW50ZWdlciA6OiBkaW0x CiAgICAgICAgICAgICBpbnRlZ2VyIDo6IGRpbTIKICAgICBlbmQgdHlwZSByMnRhYgoKY29u dGFpbnMKICAgIHN1YnJvdXRpbmUgIGFqb3V0ZSh0YWIsbixtKQogICAgaW1wbGljaXQgbm9u ZQogICAgaW50ZWdlciwgaW50ZW50KGluKSA6Om4sbQogICAgdHlwZShyMnRhYiksIHBvaW50 ZXIsIGludGVudChpbm91dCkgOjp0YWIKICAgICEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t LS0tCgogICAgICAgcHJpbnQqLCI9PT09PT4+IGFqb3V0ZTogYWxsb2NhdGluZyBvbiBob3N0 IGFuZCBvbiBkZXZpY2UiCiAgICAgICBpZiAoLm5vdC4gYXNzb2NpYXRlZCh0YWIpKSBhbGxv Y2F0ZSh0YWIpCiAgICAgICBpZiAoYWxsb2NhdGVkKHRhYiV2YWwpKSBkZWFsbG9jYXRlKHRh YiV2YWwpCgogICAgICAgYWxsb2NhdGUgKHRhYiV2YWwobixtKSkKICAgICAgIHRhYiVkaW0x PW4KICAgICAgIHRhYiVkaW0yPW0KICAgICAgIHRhYiV2YWwoOiw6KT0wLjBEMAogICAgICAg ISRhY2MgZW50ZXIgZGF0YSBjb3B5aW4odGFiKQogICAgICAgISRhY2MgZW50ZXIgZGF0YSBj b3B5aW4odGFiJXZhbCkKICAgICAgIHByaW50KiwiPT09PT0+PiBham91dGUgT0siCiAgICBl bmQgc3Vicm91dGluZSBham91dGUKCgoKCiAgICBzdWJyb3V0aW5lIGRlc3Ryb3kodGFiKQog ICAgICAgaW1wbGljaXQgbm9uZQogICAgICAgdHlwZShyMnRhYiksIHBvaW50ZXIsIGludGVu dChpbm91dCkgOjp0YWIKCiAgICAgICBwcmludCosIj09PT09Pj4gZGVzdHJveSBkYXRhcyBv biBkZXZpY2UgYW5kIG9uIGhvc3QiCiAgICAgICBpZiAoYXNzb2NpYXRlZCh0YWIpKSB0aGVu CiAgICAgICAgICBpZiAoYWxsb2NhdGVkKHRhYiV2YWwpKSB0aGVuCiAgICAgICAgICAgICAh JGFjYyBleGl0IGRhdGEgZGVsZXRlKHRhYiV2YWwpCiAgICAgICAgICAgICBkZWFsbG9jYXRl KHRhYiV2YWwpCiAgICAgICAgICBlbmRpZgogICAgICAgICAgISRhY2MgZXhpdCBkYXRhIGRl bGV0ZSh0YWIpIAogICAgICAgICAgZGVhbGxvY2F0ZSh0YWIpCiAgICAgICBlbmRpZgogICAg ICAgbnVsbGlmeSh0YWIpCiAgICAgICBwcmludCosIj09PT09Pj4gZGVzdHJveSBPSyIKICAg IGVuZCBzdWJyb3V0aW5lIGRlc3Ryb3kKZW5kIG1vZHVsZSB0YWJfbQoKCgpwcm9ncmFtIG1h aW4KICAgICAgdXNlIHRhYl9tLCBvbmx5OiBham91dGUsIGRlc3Ryb3ksIHIydGFiCiAgICAg IHVzZSBvcGVuYWNjCiAgICAgIGltcGxpY2l0IG5vbmUKCgogICAgICB0eXBlKHIydGFiKSwg cG9pbnRlciA6OiB0YWI9Pm51bGwoKQogICAgICBpbnRlZ2VyIDo6IGksaixrLGl0ZXIKICAg ICAgZG91YmxlIHByZWNpc2lvbiA6OiBzb21tZQogICAgICBkb3VibGUgcHJlY2lzaW9uIDo6 IGRlZnZhbD0yCgoKCiAgICAgIGRvIGl0ZXI9MSwyCiAgICAgICAgIHdyaXRlKDYsJyhhKScp ICI9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09Igog ICAgICAgICB3cml0ZSg2LCcoYSwxeCxpMCwxeCxhKScpICI9PT09PT09PT09PT09PT09PT09 PT09PSIsaXRlciwiPT09PT09PT09PT09PT09PT09PT09PT0iCiAgICAgICAgIHdyaXRlKDYs JyhhKScpICI9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09 PT09IgoKICAgICAgICAgISBBbGxvY2F0ZSBtZW1vcnkgb24gdGhlIGhvc3QgYW5kIG9uIHRo ZSBkZXZpY2UuCiAgICAgICAgIGNhbGwgYWpvdXRlICh0YWIsMTAqaXRlciwxMCppdGVyKQog ICAKICAgICAgICAgd3JpdGUoNiwnKGEsaTAsYSknKSIgPT09PT4gdXNhZ2UgaW4gbWFpbjog c2V0IGFycmF5IHRvICIsaXRlciwiIG9uIGRldmljZSIKICAgICAgICAgISRhY2MgcGFyYWxs ZWwgbG9vcCBwcmVzZW50KHRhYikgY29sbGFwc2UoMikKICAgICAgICAgZG8gaj0xLHRhYiVk aW0yCiAgICAgICAgICAgZG8gaT0xLHRhYiVkaW0xCiAgICAgICAgICAgICB0YWIldmFsKGks aik9MS4wICppdGVyCiAgICAgICAgICAgZW5kZG8KICAgICAgICAgZW5kZG8KICAgICAgICAg cHJpbnQqLCIgPT09PT4gdXNhZ2UgaW4gbWFpbiBPSyIKICAgCiAgICAgICAgICEgQ2hlY2sg dmFsdWVzIG5vdwogICAgICAgICBzb21tZT0wCiAgICAgICAgIGRvIGo9MSx0YWIlZGltMgog ICAgICAgICAgICBkbyBpPTEsdGFiJWRpbTEKICAgICAgICAgICAgICAgc29tbWU9c29tbWUr dGFiJXZhbChpLGopCiAgICAgICAgICAgIGVuZCBkbwogICAgICAgICBlbmQgZG8KICAgICAg ICAgd3JpdGUoNiwnKGEsZjE0LjYpJykgJ0JlZm9yZSB1cGRhdGUgZnJvbSB0aGUgZGV2aWNl LCBvbiBob3N0IChzaG91bGQgYmUgMCk6ICcsc29tbWUKCiAgICAgICAgICEkYWNjIHVwZGF0 ZSBzZWxmKHRhYiV2YWwpCiAgICAgICAgIHNvbW1lPTAKICAgICAgICAgZG8gaj0xLHRhYiVk aW0yCiAgICAgICAgICAgIGRvIGk9MSx0YWIlZGltMQogICAgICAgICAgICAgICBzb21tZT1z b21tZSt0YWIldmFsKGksaikKICAgICAgICAgICAgZW5kIGRvCiAgICAgICAgIGVuZCBkbwog ICAgICAgICB3cml0ZSg2LCcoYSxpMCxhLGYxNC42KScpICdBZnRlciB1cGRhdGUgZnJvbSBk ZXZpY2UsIG9uIGhvc3Qgc2hvdWQgYmUgJywmCiAgICAgICAgICAgICAgICAgICAgICAgICYg ICAgICAgIGl0ZXIqdGFiJWRpbTIqdGFiJWRpbTEsJzogJyxzb21tZQogICAKICAgICAgICAg Y2FsbCBkZXN0cm95KHRhYikKICAgICAgICAgdGFiPT5udWxsKCkKICAgICAgZW5kIGRvICEg aXRlciBsb29wCmVuZCBwcm9ncmFtIG1haW4K --------------2ehXwwOGvj3AFvVhwF5GBsVZ--