From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 52638 invoked by alias); 1 Sep 2015 22:28:40 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Received: (qmail 52616 invoked by uid 89); 1 Sep 2015 22:28:39 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=0.3 required=5.0 tests=AWL,BAYES_50,RCVD_IN_DNSWL_NONE,SPF_PASS,T_RP_MATCHES_RCVD autolearn=ham version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: mtaout006.msg.strl.va.charter.net Received: from mtaout006-public.msg.strl.va.charter.net (HELO mtaout006.msg.strl.va.charter.net) (68.114.190.31) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Tue, 01 Sep 2015 22:28:39 +0000 Received: from impout001 ([68.114.189.16]) by mtaout006.msg.strl.va.charter.net (InterMail vM.9.00.020.01 201-2473-160) with ESMTP id <20150901222837.JGOE5330.mtaout006.msg.strl.va.charter.net@impout001>; Tue, 1 Sep 2015 17:28:37 -0500 Received: from quattro.localdomain ([96.41.215.23]) by impout001 with charter.net id ByUc1r0090Wrkg001yUcMJ; Tue, 01 Sep 2015 17:28:37 -0500 X-Authority-Analysis: v=2.1 cv=R/mNGLhX c=1 sm=1 tr=0 a=salB9WdMPIDduBH7JsZfrA==:117 a=salB9WdMPIDduBH7JsZfrA==:17 a=hOpmn2quAAAA:8 a=N659UExz7-8A:10 a=vPGwRgFU3m0IRYgJ8WYA:9 a=pILNOxqGKmIA:10 X-Auth-id: anZkZWxpc2xlQGNoYXJ0ZXIubmV0 Subject: Re: [Fortran, committed] XFAIL read_dir.f90 on FreeBSD To: Steve Kargl , fortran@gcc.gnu.org, gcc-patches@gcc.gnu.org References: <20150901181627.GA55465@troutmask.apl.washington.edu> <20150901181837.GA55508@troutmask.apl.washington.edu> From: Jerry DeLisle Message-ID: <55E62694.5000207@charter.net> Date: Tue, 01 Sep 2015 22:28:00 -0000 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.2.0 MIME-Version: 1.0 In-Reply-To: <20150901181837.GA55508@troutmask.apl.washington.edu> Content-Type: text/plain; charset=windows-1252 Content-Transfer-Encoding: 7bit X-SW-Source: 2015-09/txt/msg00103.txt.bz2 On 09/01/2015 11:18 AM, Steve Kargl wrote: > On Tue, Sep 01, 2015 at 11:16:27AM -0700, Steve Kargl wrote: >> open(unit=10, file='junko.dir',iostat=ios,action='read',access='stream') >> if (ios.ne.0) call abort >> read(10, iostat=ios) c >> - if (ios.ne.21) call abort >> + if (ios.ne.21) then >> + close(10) > > I forgot to mention that 'close(10, status="delete')' does not > work on a directory. Should it? > >> + call system('rmdir junko.dir') >> + call abort >> + end if >> + close(10) >> call system('rmdir junko.dir') > Thanks for the touch up Steve. I suspect other OS's will not work either. I assumed close with Status="delete" would not work on a directory. Jerry