From patchwork Wed Apr 4 09:30:34 2018 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: =?utf-8?q?Thomas_K=C3=B6nig?= X-Patchwork-Id: 894907 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Authentication-Results: ozlabs.org; spf=pass (mailfrom) smtp.mailfrom=gcc.gnu.org (client-ip=209.132.180.131; helo=sourceware.org; envelope-from=gcc-patches-return-475812-incoming=patchwork.ozlabs.org@gcc.gnu.org; receiver=) Authentication-Results: ozlabs.org; dmarc=none (p=none dis=none) header.from=tkoenig.net Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b="TKTyLkIM"; dkim-atps=neutral Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 40GLLJ4B88z9s0p for ; Wed, 4 Apr 2018 19:31:03 +1000 (AEST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:to :from:subject:message-id:date:mime-version:content-type; q=dns; s=default; b=kWqbwghcWtgYrqV1r7CvupgCORhp51YJArqseuSWPRyHnyGpfM +kkwqV9Pbpq/I3UaioJ5K5HuuBQs9p0Ig4XaeX+aDSlTxF7ESCty/Lj7uxCr5fSo kKw4SNnenWlE/XQutufDKv1gKETAonPMB4/DArvdd5XMFnRwD+oROhpNY= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:to :from:subject:message-id:date:mime-version:content-type; s= default; bh=DdibhgkJ7F62nKj0ggZLAJ/Dg2Q=; b=TKTyLkIMVk/YYLmzEbkt PxXeAUTXMlo/8kknamKj73wHldObwnrSIMpGYV7RU8KpwZFSYWP1s0R5NJDzO2rT XC65VI60eJEGQx4LMfR6DlAs9mJCAFcVhByLp0AOGwQzfd/foPCTYe33b4u1lryZ z+nh0qLH7NpkFly6dFZgQs0= Received: (qmail 37587 invoked by alias); 4 Apr 2018 09:30:55 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 6541 invoked by uid 89); 4 Apr 2018 09:30:42 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-12.1 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_2, GIT_PATCH_3, RCVD_IN_DNSWL_LOW, SPF_HELO_PASS autolearn=ham version=3.3.2 spammy= X-Spam-User: qpsmtpd, 3 recipients X-HELO: mo4-p00-ob.smtp.rzone.de Received: from mo4-p00-ob.smtp.rzone.de (HELO mo4-p00-ob.smtp.rzone.de) (81.169.146.216) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 04 Apr 2018 09:30:40 +0000 X-RZG-AUTH: :OGckYUunfvGNVUL0FlRnC4eRM+bOwx0tUtYTrJ/xeZX+ZVZvrbiROUdnOm6ScCRz X-RZG-CLASS-ID: mo00 Received: from [192.168.178.68] (xdsl-78-35-131-140.netcologne.de [78.35.131.140]) by smtp.strato.de (RZmta 43.1 DYNA|AUTH) with ESMTPSA id V073b6u349UYIdU (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (curve secp521r1 with 521 ECDH bits, eq. 15360 bits RSA)) (Client did not present a certificate); Wed, 4 Apr 2018 11:30:34 +0200 (CEST) To: "fortran@gcc.gnu.org" , gcc-patches , vries@gcc.gnu.org From: =?utf-8?q?Thomas_K=C3=B6nig?= Subject: [patch, libfortran, committed] Implement stop_numeric for minimal targets Message-ID: <751060e1-67cb-d290-4fd1-46b15b77fc1a@tkoenig.net> Date: Wed, 4 Apr 2018 11:30:34 +0200 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.6.0 MIME-Version: 1.0 Hello world, the recent patch to make the gfortran and libgomp testsuites more standard conforming, by replacing CALL ABORT() with STOP N, led to numerous testsuite failures on nvptx because stop_numeric was not implemented in minimal.c. I have committed the patch below in r259072 as obvious after Tom de Vries had confirmed that it solves the problem. Regards Thomas 2018-04-04 Thomas Koenig PR libfortran/85166 * runtime/minimal.c (stop_numeric): Add new function in order to implement numeric stop on minimal targets. Index: runtime/minimal.c =================================================================== --- runtime/minimal.c (Revision 259055) +++ runtime/minimal.c (Arbeitskopie) @@ -187,3 +187,17 @@ abort(); } + +/* A numeric STOP statement. */ + +extern _Noreturn void stop_numeric (int, bool); +export_proto(stop_numeric); + +void +stop_numeric (int code, bool quiet) +{ + if (!quiet) + printf ("STOP %d\n", code); + + exit (code); +}