From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from us-smtp-delivery-124.mimecast.com (us-smtp-delivery-124.mimecast.com [170.10.129.124]) by sourceware.org (Postfix) with ESMTPS id 06E563947425 for ; Fri, 1 Apr 2022 15:38:28 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 06E563947425 Received: from mimecast-mx02.redhat.com (mimecast-mx02.redhat.com [66.187.233.88]) by relay.mimecast.com with ESMTP with STARTTLS (version=TLSv1.2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id us-mta-475-8VLTp7v3NLqydAlrEe_dtg-1; Fri, 01 Apr 2022 11:38:25 -0400 X-MC-Unique: 8VLTp7v3NLqydAlrEe_dtg-1 Received: from smtp.corp.redhat.com (int-mx01.intmail.prod.int.rdu2.redhat.com [10.11.54.1]) (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by mimecast-mx02.redhat.com (Postfix) with ESMTPS id 2DC9F85A5BC; Fri, 1 Apr 2022 15:38:25 +0000 (UTC) Received: from tucnak.zalov.cz (unknown [10.39.194.220]) by smtp.corp.redhat.com (Postfix) with ESMTPS id C7A3D409B3E0; Fri, 1 Apr 2022 15:38:24 +0000 (UTC) Received: from tucnak.zalov.cz (localhost [127.0.0.1]) by tucnak.zalov.cz (8.16.1/8.16.1) with ESMTPS id 231FcLXB161139 (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384 bits=256 verify=NOT); Fri, 1 Apr 2022 17:38:22 +0200 Received: (from jakub@localhost) by tucnak.zalov.cz (8.16.1/8.16.1/Submit) id 231FcK8W161138; Fri, 1 Apr 2022 17:38:20 +0200 Date: Fri, 1 Apr 2022 17:38:20 +0200 From: Jakub Jelinek To: Tom de Vries Cc: Thomas Schwinge , gcc-patches@gcc.gnu.org Subject: Re: [PATCH][libgomp, testsuite, nvptx] Limit recursion in declare_target-{1,2}.f90 Message-ID: Reply-To: Jakub Jelinek References: <20220401112438.GA19247@delia> <8735ixm1hr.fsf@euler.schwinge.homeip.net> <37fabb8f-8273-f337-3e70-1795d957288e@suse.de> MIME-Version: 1.0 In-Reply-To: <37fabb8f-8273-f337-3e70-1795d957288e@suse.de> X-Scanned-By: MIMEDefang 2.84 on 10.11.54.1 X-Mimecast-Spam-Score: 0 X-Mimecast-Originator: redhat.com Content-Type: text/plain; charset=us-ascii Content-Disposition: inline X-Spam-Status: No, score=-3.5 required=5.0 tests=BAYES_00, DKIMWL_WL_HIGH, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, KAM_NUMSUBJECT, RCVD_IN_DNSWL_LOW, RCVD_IN_MSPIKE_H4, RCVD_IN_MSPIKE_WL, SPF_HELO_NONE, SPF_NONE, TXREP, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 01 Apr 2022 15:38:34 -0000 On Fri, Apr 01, 2022 at 05:34:50PM +0200, Tom de Vries wrote: > Do you perhaps have an idea why it's failing? Because you call on_device_arch_nvptx () outside of !$omp target region, so unless the host device is NVPTX, it will not be true. > +program e_53_1 > + use e_53_1_mod, only : fib, fib_wrapper > + integer :: REC_DEPTH = 25 > + > + interface > + integer function on_device_arch_nvptx() bind(C) > + end function on_device_arch_nvptx > + end interface > + > + if (on_device_arch_nvptx () /= 0) then > + ! Reduced from 25 to 23, otherwise execution runs out of thread stack on > + ! Nvidia Titan V. > + ! Reduced from 23 to 22, otherwise execution runs out of thread stack on > + ! Nvidia T400 (2GB variant), when run with GOMP_NVPTX_JIT=-O0. > + ! Reduced from 22 to 20, otherwise execution runs out of thread stack on > + ! Nvidia RTX A2000 (6GB variant), when run with GOMP_NVPTX_JIT=-O0. > + REC_DEPTH = 20 > + end if > + > + if (fib (15) /= fib_wrapper (15)) stop 1 > + if (fib (REC_DEPTH) /= fib_wrapper (REC_DEPTH)) stop 2 > +end program Jakub