From patchwork Sun Feb 16 22:11:44 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Janus Weil X-Patchwork-Id: 320824 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 4A6E52C00C5 for ; Mon, 17 Feb 2014 09:11:56 +1100 (EST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :mime-version:date:message-id:subject:from:to:content-type; q= dns; s=default; b=exkubJ3NP2uB1hGMhGIlYK82DEdGfavL3Brky1FScHi12x hiG94CbsRNiq2R1h+wq193rG88E/+HSH9Q+KuE6ONnYPP1zPm6nCXmoefPfwvsQz MFxVI1whXGSdFiHLB2Bdmvx9q7FJVJBwH6UbqSHI9F70+Gzzmop4ux4oz+l6o= 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 :mime-version:date:message-id:subject:from:to:content-type; s= default; bh=C1AYzQYmU/gEYPi8zsyLzxx9NEU=; b=C0rkXqq1oQNQC0rL2Dcd r3qqZBr84Eot3Gciua5kCmWPUDukfBM2IFm09KzcIzDxHYjn5ggcjUgbDCw64op8 bdoIy3rUwnRUvhV17wg8nz9YEe/3N5sPuJh5/GlfOZ0ddUvtPG8vr/edNicFGd9P FaCJ8KEDvEk5sENboaa8kmE= Received: (qmail 22928 invoked by alias); 16 Feb 2014 22:11:49 -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 22905 invoked by uid 89); 16 Feb 2014 22:11:48 -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_ENVFROM_END_DIGIT, FREEMAIL_FROM, RCVD_IN_DNSWL_LOW, SPF_PASS autolearn=ham version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: mail-qc0-f178.google.com Received: from mail-qc0-f178.google.com (HELO mail-qc0-f178.google.com) (209.85.216.178) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES128-SHA encrypted) ESMTPS; Sun, 16 Feb 2014 22:11:47 +0000 Received: by mail-qc0-f178.google.com with SMTP id m20so22613035qcx.37 for ; Sun, 16 Feb 2014 14:11:45 -0800 (PST) MIME-Version: 1.0 X-Received: by 10.140.50.46 with SMTP id r43mr28569577qga.22.1392588705102; Sun, 16 Feb 2014 14:11:45 -0800 (PST) Received: by 10.96.156.38 with HTTP; Sun, 16 Feb 2014 14:11:44 -0800 (PST) Date: Sun, 16 Feb 2014 23:11:44 +0100 Message-ID: Subject: [Patch, Fortran, Regression] PR 55907: ICE with -fno-automatic -finit-local-zero From: Janus Weil To: gfortran , gcc-patches Hi all, here is a small patch for a ICE-on-valid regression. Regtested on x86_64-unknown-linux-gnu. Ok for trunk/4.8/4.7? Cheers, Janus 2014-02-16 Janus Weil PR fortran/55907 * resolve.c (build_default_init_expr): Don't initialize character variable if -fno-automatic is given. 2014-02-16 Janus Weil PR fortran/55907 * gfortran.dg/init_flag_12.f90: New. Index: gcc/fortran/resolve.c =================================================================== --- gcc/fortran/resolve.c (revision 207804) +++ gcc/fortran/resolve.c (working copy) @@ -10530,7 +10530,7 @@ build_default_init_expr (gfc_symbol *sym) init_expr = NULL; } if (!init_expr && gfc_option.flag_init_character == GFC_INIT_CHARACTER_ON - && sym->ts.u.cl->length) + && sym->ts.u.cl->length && gfc_option.flag_max_stack_var_size != 0) { gfc_actual_arglist *arg; init_expr = gfc_get_expr ();