From patchwork Mon Dec 27 15:35:16 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Thomas Koenig X-Patchwork-Id: 76793 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]) by ozlabs.org (Postfix) with SMTP id ED21DB70DA for ; Tue, 28 Dec 2010 02:36:22 +1100 (EST) Received: (qmail 4606 invoked by alias); 27 Dec 2010 15:35:35 -0000 Received: (qmail 4559 invoked by uid 22791); 27 Dec 2010 15:35:34 -0000 X-SWARE-Spam-Status: No, hits=2.0 required=5.0 tests=AWL, BAYES_05, RCVD_IN_DNSWL_NONE, RCVD_IN_JMF_BL, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from cc-smtpout2.netcologne.de (HELO cc-smtpout2.netcologne.de) (89.1.8.212) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Mon, 27 Dec 2010 15:35:25 +0000 Received: from cc-smtpin3.netcologne.de (cc-smtpin3.netcologne.de [89.1.8.203]) by cc-smtpout2.netcologne.de (Postfix) with ESMTP id A80D212467; Mon, 27 Dec 2010 16:35:17 +0100 (CET) Received: from [192.168.0.197] (xdsl-78-35-164-42.netcologne.de [78.35.164.42]) by cc-smtpin3.netcologne.de (Postfix) with ESMTPA id 8E00311E8C; Mon, 27 Dec 2010 16:35:16 +0100 (CET) Subject: [patch, committed] Show character kinds in -fdump-fortran-* From: Thomas Koenig To: fortran@gcc.gnu.org Cc: gcc-patches@gcc.gnu.org Date: Mon, 27 Dec 2010 16:35:16 +0100 Message-ID: <1293464116.3714.1.camel@linux-fd1f.site> Mime-Version: 1.0 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 Hello world, committed as obvious as rev 168276, after reg-testing. Thomas 2010-12-27 Thomas Koenig * dump-parse-tree.c (show_typespec): Also show character kind. Index: dump-parse-tree.c =================================================================== --- dump-parse-tree.c (Revision 168201) +++ dump-parse-tree.c (Arbeitskopie) @@ -105,6 +105,7 @@ show_typespec (gfc_typespec *ts) case BT_CHARACTER: show_expr (ts->u.cl->length); + fprintf(dumpfile, " %d", ts->kind); break; default: