From patchwork Thu Oct 20 08:37:35 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Andre Vehreschild X-Patchwork-Id: 684510 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org 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 3t02J15m3jz9rvt for ; Thu, 20 Oct 2016 19:37:52 +1100 (AEDT) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b=E01kn3Fh; dkim-atps=neutral DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:date :from:to:subject:message-id:mime-version:content-type :content-transfer-encoding; q=dns; s=default; b=CdYebKsXiF45FCQs 6GmPJznkgUU4GoGUb2gC3MukaSoZ5xRs8+x3bkBHT8Yjcb4kfnq/dv612sI5VNZq QcRIMRQQyHbiNheeWXIpTeBUYYM1x9J3S4vLmrPPet8e9bxuEomncpXL8SfNRyYI 1Ita/VEOSatKzrfk41gtLA4gY/k= 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:date :from:to:subject:message-id:mime-version:content-type :content-transfer-encoding; s=default; bh=UAbs+2+duDy/87eiUJiBr5 FApyc=; b=E01kn3FhMgqXzvIjqkvSXlAn7HqYQHTNmp1lVfkFTcLVccjI9SI9Hv 84h1eHLM0JxPfBbOQiB96y29jf2yUXrYhL25belfGwvq24iNnbcnThXDkTwiRN2Z FKI/uDOMqJeiZgc7WEpkwwyV793zUOOBc5jJcmueH12GA3SQ9RHgk= Received: (qmail 28678 invoked by alias); 20 Oct 2016 08:37:42 -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 28652 invoked by uid 89); 20 Oct 2016 08:37:42 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.0 required=5.0 tests=AWL, BAYES_00, FREEMAIL_FROM, RCVD_IN_DNSWL_LOW, RCVD_IN_SORBS_SPAM, SPF_PASS autolearn=ham version=3.3.2 spammy=suited, UD:access X-Spam-User: qpsmtpd, 2 recipients X-HELO: mout.gmx.net Received: from mout.gmx.net (HELO mout.gmx.net) (212.227.17.21) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 20 Oct 2016 08:37:40 +0000 Received: from vepi2 ([84.63.206.51]) by mail.gmx.com (mrgmx101) with ESMTPSA (Nemesis) id 0MEsXW-1c8kVm0ucc-00G3oy; Thu, 20 Oct 2016 10:37:36 +0200 Date: Thu, 20 Oct 2016 10:37:35 +0200 From: Andre Vehreschild To: GCC-Patches-ML , GCC-Fortran-ML Subject: [Patch, Fortran] Preparatory patch to change charlen's kind type Message-ID: <20161020103735.39f3d520@vepi2> MIME-Version: 1.0 X-UI-Out-Filterresults: notjunk:1; V01:K0:5GD5hrR7xZY=:C0UUqBFZPdmeMDVmJkmktS BXonVp15CXBgecnPB5Pq74MHNLYpzSIZmMgp6SgAr0JXNktwoGOtzIDjUMMKKHFLlXgBNuwLb FM5frVsr2o1qCuXRF7axH7jWkv3ZBVhgW+gxU0u8TSy5LEqzeMH/2cYKyK3QymsMWJtKEfuA/ 5mLJPOtDNJRZJGjDubbnNazmKe8v2A5+Zeh4iqpm0/+8vn6GJdDDSIBYU1aCckMTCVyMC4nYH qA7vfXd24uW8bj2Ehj41Jt9+/2YN6JbwyGmjTebQJtTwucg0RHns8TZXinJiRd2nEsGqUuSfk bprqMK+mwU31wRHQPkgZt2Q03a/DP2Vj/gb6gtlhVCRaNgDNUkI10zI9uef8B28AfctbWdSbw +XVUibTl0aDPripkUjtcVLyuKSFDZpCkgBmy64Y6+SG+rQIIOICR9hiMK4xhnEJ8pfrKYO0EA kWhviPMhUsLOyrFkbE9EG6QazoBD9bNrKUgYopSyw2PthQr+QqPW0wJajjCvYaH5YEM62es8k FEnYBLz09F+ZRDbDbNigi2hG06x1NrC7k9vImgUAOaf5lYbtiY3o4ocYRw44zdzU8gRwHRF56 FwAkRQrBOwJPG9m0i0u07h+vjaBaDJ1ZztcD1kcYvpdNp56iDnONB/n1AwQap85/zQgdgmAIb 14Ibu0kuVVJJU4MHM+jLl5wSThlE8Iv13/b/GEPv1TkvFS4W3DC3ZRqFwJueQmNPCF5wJC2ND Hb8daFwLX15U2a0kXyEP8R41lGtJQUJdWwFmG1MVdGkbWTKCsYk2i/tdn/WVYV/wvNElr3orU iRd+0e9 Hi all, during hacking in gfortran I found, that for unlimited polymorphic types the size type of a char array stored is hard coded to be 4. This small patch resolves this by using the better suited constant: gfc_charlen_int_kind. This will make the move to larger strings easier. Bootstrapped and regtested on x86_64-linux/F23. Ok for trunk? Regards, Andre diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 6d324a6..e110f2c 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -707,7 +707,7 @@ gfc_build_class_symbol (gfc_typespec *ts, symbol_attribute *attr, if (!gfc_add_component (fclass, "_len", &c)) return false; c->ts.type = BT_INTEGER; - c->ts.kind = 4; + c->ts.kind = gfc_charlen_int_kind; c->attr.access = ACCESS_PRIVATE; c->attr.artificial = 1; }