From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 9696 invoked by alias); 24 Jul 2010 08:22:44 -0000 Received: (qmail 9649 invoked by uid 48); 24 Jul 2010 08:22:30 -0000 Date: Sat, 24 Jul 2010 08:22:00 -0000 Message-ID: <20100724082230.9648.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/44931] For INPUT_UNIT, INQUIRE NAME= should not return "stdin" In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "burnus at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2010-07/txt/msg02618.txt.bz2 ------- Comment #6 from burnus at gcc dot gnu dot org 2010-07-24 08:22 ------- (In reply to comment #5) > Created an attachment (id=21296) --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=21296&action=view) [edit] > Proposed pathc + if (u->unit_number == options.stdin_unit + || u->unit_number == options.stdout_unit + || u->unit_number == options.stderr_unit) Will this work for open(6,file="test.dat") inquire(6,file=str) if (str /= "test.dat") call abort() ? -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44931