From owner-sc22wg5+sc22wg5-dom8=www.open-std.org@open-std.org Wed May 27 00:46:50 2015 Return-Path: X-Original-To: sc22wg5-dom8 Delivered-To: sc22wg5-dom8@www.open-std.org Received: by www.open-std.org (Postfix, from userid 521) id 3F1B635870F; Wed, 27 May 2015 00:46:50 +0200 (CEST) Delivered-To: sc22wg5@open-std.org Received: from mail.jpl.nasa.gov (sentrion1.jpl.nasa.gov [128.149.139.105]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by www.open-std.org (Postfix) with ESMTP id 9113635859B for ; Wed, 27 May 2015 00:46:44 +0200 (CEST) Received: from [137.79.7.57] (math.jpl.nasa.gov [137.79.7.57]) by smtp.jpl.nasa.gov (Sentrion-MTA-4.3.1/Sentrion-MTA-4.3.1) with ESMTP id t4QMkeS4000952 (using TLSv1.2 with cipher DHE-RSA-AES128-GCM-SHA256 (128 bits) verified NO) for ; Tue, 26 May 2015 15:46:41 -0700 Subject: Re: (j3.2006) (SC22WG5.5504) Assignment to ero-sized strings and arrays From: Van Snyder Reply-To: Van.Snyder@jpl.nasa.gov To: sc22wg5 In-Reply-To: <20150526222707.E035535859B@www.open-std.org> References: <20150526222707.E035535859B@www.open-std.org> Content-Type: text/plain; charset="ISO-8859-1" Organization: Yes Date: Tue, 26 May 2015 15:46:40 -0700 Message-ID: <1432680400.19025.231.camel@math.jpl.nasa.gov> Mime-Version: 1.0 X-Mailer: Evolution 2.32.3 (2.32.3-34.el6) Content-Transfer-Encoding: 7bit X-Source-Sender: Van.Snyder@jpl.nasa.gov X-AUTH: Authorized Sender: owner-sc22wg5@open-std.org Precedence: bulk This seems to need an interp. On Tue, 2015-05-26 at 15:27 -0700, Walt Brainerd wrote: > I am willing to try this one more time. > > > Tell me I am crazy, stupid, or whatever; it has happened before. > > > But to ignore this puzzles me. Is anybody going to correct this error? > > > 7.2.1.3(1) of the F08 standard says: > > > No value is assigned to the variable if it is of type character and > zero > length, or is an array of size zero. > > > It is still in N2014, if that is the latest. > > > Consider the program: > > > program f > character(len=:), allocatable :: c > c = "" > print *, len(c), "X"//C//"X" > c = "QQQ" > print *, len(c), "X"//C//"X" > end program f > > > The sentence quoted says that the second assignment does not > assign the value QQQ because the length of c is zero. I don't > think that is what is intended. > > > Just delete the sentence' it was silly, but wasn't wrong in F95. > > > -- > Walt Brainerd > _______________________________________________ > J3 mailing list > J3@mailman.j3-fortran.org > http://mailman.j3-fortran.org/mailman/listinfo/j3