From patchwork Fri Mar 21 22:24:08 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry DeLisle X-Patchwork-Id: 332774 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 0DD2A2C00B1 for ; Sat, 22 Mar 2014 09:24: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 :message-id:date:from:mime-version:to:cc:subject:content-type :content-transfer-encoding; q=dns; s=default; b=NYU9VgGcR21Cb+7z FEw0xoLJnU+ceyQfuWqveXilsz6KA0dT9aHBzy3a1uYDnR9hnnuXm6j3f9rI35q6 IZrMTN+WbJQUzGcx44SMhH9pAA0yrChXhyP04Z79ugdCy74pfoBiSZvXUdbSHZbF vGcjv6FD+XF5QzfWMIq9FRVDgBY= 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 :message-id:date:from:mime-version:to:cc:subject:content-type :content-transfer-encoding; s=default; bh=tnrMXUyyQVRLCFJUxX5fty MXYWE=; b=eNz+W0au0rqC7mfoDi2vJ+4o6lYtEHMwDNQeKx6KcEd6X0DlMfT4Gu MyHKxUkQC7yevPqrZh8HrqlXL1lRp25F9G4yZWeWP8otAftsZsFW2RjjgpM7J1o/ a0D/P0WfQ4IrTcNqJQG3qBXGikgLy2ODq8scgv54QYUzOw/7Xe5pM= Received: (qmail 15805 invoked by alias); 21 Mar 2014 22:24:41 -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 15788 invoked by uid 89); 21 Mar 2014 22:24:40 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.6 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE, SPF_PASS, T_RP_MATCHES_RCVD autolearn=ham version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: mta11.charter.net Received: from mta11.charter.net (HELO mta11.charter.net) (216.33.127.80) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 21 Mar 2014 22:24:38 +0000 Received: from imp09 ([10.20.200.9]) by mta11.charter.net (InterMail vM.8.01.05.09 201-2260-151-124-20120717) with ESMTP id <20140321222436.DDSV6169.mta11.charter.net@imp09>; Fri, 21 Mar 2014 18:24:36 -0400 Received: from pavilion.localdomain ([68.5.43.244]) by imp09 with smtp.charter.net id gNQb1n00W5G55b005NQcVf; Fri, 21 Mar 2014 18:24:36 -0400 X-Authority-Analysis: v=2.0 cv=TOkd0CZa c=1 sm=1 a=mw+G4YjGptsaRR05zBLClw==:17 a=cs1xLa0W9aIA:10 a=X558q7fBxYEA:10 a=yUnIBFQkZM0A:10 a=8nJEP1OIZ-IA:10 a=hOpmn2quAAAA:8 a=Yn-xYYtVMKj2Vacs-oAA:9 a=wPNLvfGTeEIA:10 a=mw+G4YjGptsaRR05zBLClw==:117 X-Auth-id: anZkZWxpc2xlQGNoYXJ0ZXIubmV0 Message-ID: <532CBC08.9070901@charter.net> Date: Fri, 21 Mar 2014 15:24:08 -0700 From: Jerry DeLisle User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20100101 Thunderbird/24.3.0 MIME-Version: 1.0 To: gfortran CC: gcc patches Subject: [patch, libgfortran] Committed as obvious Committed revision 208759. If std= was used at compile time for std=f95, f2003, f2008, set the default delimiter to 'NONE' if not otherwise specified. 2014-03-21 Jerry DeLisle PR libfortran/60148 * io/transfer.c (data_transfer_init): If std= was specified, set delim status to DELIM_NONE of no other was specified. Index: io/transfer.c =================================================================== --- io/transfer.c (revision 208755) +++ io/transfer.c (working copy) @@ -2674,7 +2674,8 @@ data_transfer_init (st_parameter_dt *dtp, int read if (dtp->u.p.current_unit->delim_status == DELIM_UNSPECIFIED) { if (ionml && dtp->u.p.current_unit->flags.delim == DELIM_UNSPECIFIED) - dtp->u.p.current_unit->delim_status = DELIM_QUOTE; + dtp->u.p.current_unit->delim_status = + compile_options.allow_std & GFC_STD_GNU ? DELIM_QUOTE : DELIM_NONE; else dtp->u.p.current_unit->delim_status = dtp->u.p.current_unit->flags.delim; }