From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-yw1-x1135.google.com (mail-yw1-x1135.google.com [IPv6:2607:f8b0:4864:20::1135]) by sourceware.org (Postfix) with ESMTPS id E794E3858C30 for ; Wed, 8 Mar 2023 05:32:57 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org E794E3858C30 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com Received: by mail-yw1-x1135.google.com with SMTP id 00721157ae682-53d277c1834so110502417b3.10 for ; Tue, 07 Mar 2023 21:32:57 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; t=1678253577; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:from:to:cc:subject:date:message-id:reply-to; bh=jqFr/pJSC+Mp5d/1asrj+VuNIifopXXzXXir6p4LTQk=; b=bpK2gVFgI5yZou0UhsWfgsRuP9EL3tOBdV8mUst/qNeENH+MzgNUZNCxGnI+jFq05x xGWS+qwB6K8Z1kUBarUfY/SG62UfMm71WqGSp6j/14eS8q/xDgxiNR/9Cjdy1BtFkpEC P3nO9Sd7B9BNKjcXu/MpDsu5B7KLpIMEenGBOAsu1ETTZ4SdiXMvhvot0OhoFv0mzu3w dSWdQFuE16waG+t77EhsjaIWhd4Kpb/lqft9dmpAAHtG9sHEgqvYWxf18UJYfU+lye74 4UwRWb6Kj1zT8zKsLcNykk8tEAabspDYgrTnZFXM7GIxrb+RNES2L9RKxv3VaqUA8Vf7 e9vw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; t=1678253577; h=cc:to:subject:message-id:date:from:in-reply-to:references :mime-version:x-gm-message-state:from:to:cc:subject:date:message-id :reply-to; bh=jqFr/pJSC+Mp5d/1asrj+VuNIifopXXzXXir6p4LTQk=; b=W5ljpigvzbS284QVLVf6fPWcK0nEx8bM7Obyze/ZPsenGhRdzdHa6BzVHXRX+6vtWI HL1Wf+2XQSVBYNke8hrZ+NhZRpUeHqU1vgTG8GolV93IQ3SqmGjw+vCBjzMQhyHJlVOK GetP7y5WfE5QlXpo2/VtWCduMQnA6X4LBH0wxKZOuApNb4MunJuBHanB549O1TZokqH7 UeBYaQradw26vPMyhpspFitiDOly79C8q2hIaSWvYcoVZQ2dMdqHdKq7Kn0UtOacdrxP 0NXWISxK+scIIto8qPiayxI6/FCIaMCl+iI0w3pN3IpbRTnEfXhfFOQPGNl/L9JhN4wj m3Vw== X-Gm-Message-State: AO0yUKWql7oyOwzb7pwOxDAgakfhYx58Us95yv4c6dDVLGbA+KFHK7wl 0uXPKnEgOCTB1JUB/pfPTeW/FSFyV3H3mIf3lTI= X-Google-Smtp-Source: AK7set8e0+Ya4CSavMaYEHzewWJXfeyy8GsXxpNdzSBi2+hr3YU5jNd4Mji+IzLBYSUBgoGOR9ueYGRNoBFtSb3HqUA= X-Received: by 2002:a81:ad0d:0:b0:52e:b635:5496 with SMTP id l13-20020a81ad0d000000b0052eb6355496mr10524679ywh.2.1678253577179; Tue, 07 Mar 2023 21:32:57 -0800 (PST) MIME-Version: 1.0 References: <8f40b52e-c264-d1e4-06dd-fb9990a64bb8@logikalsolutions.com> <320b23ee-c38c-583a-73b9-78739c8f2046@netcologne.de> In-Reply-To: <320b23ee-c38c-583a-73b9-78739c8f2046@netcologne.de> From: Arjen Markus Date: Wed, 8 Mar 2023 06:32:46 +0100 Message-ID: Subject: Re: F77 indexed file support To: Thomas Koenig Cc: Roland Hughes , "fortran@gcc.gnu.org" Content-Type: multipart/alternative; boundary="0000000000004f9a6d05f65cdc58" X-Spam-Status: No, score=0.3 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,HTML_MESSAGE,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: --0000000000004f9a6d05f65cdc58 Content-Type: text/plain; charset="UTF-8" I have never worked much with VAXes, but I do remember that VAX used a file system where you made a new version of a file and the older versions were automatically kept. I guess that is the purpose of the INDEXED organisation. It is not so much a limitation of gfortran that it does not support this, but a consequence of the operating system's completely different view on files and file management. Regards, Arjen Op di 7 mrt 2023 om 23:58 schreef Thomas Koenig via Fortran < fortran@gcc.gnu.org>: > Hi Roland, > > > 210 OPEN (UNIT=K_DRAW_CHAN, > > 1 FILE=DRAWING_DATA, > > 2 STATUS='OLD', > > 3 ORGANIZATION='INDEXED', > > I'd never heard of that one up to now. > > > 4 ACCESS='KEYED', > > 5 RECORDTYPE='FIXED', > > 6 FORM='UNFORMATTED', > > 7 RECL=K_DRAWING_RECORD_SIZE/4, > > 8 CARRIAGECONTROL='FORTRAN', > > 9 KEY=(1:8:CHARACTER), > > 1 DISP='KEEP', > > 2 IOSTAT=L_DRAW_ERR, > > 3 ERR=999) > > > > The ORGANIZATION='INDEXED' is key. > > > > GnuCOBOL > > > > https://gnucobol.sourceforge.io/ > > > > uses the BerkleyDB (sp?) library so the standard COBOL indexed file > > support from the big computers can at least be mimicked. > > > > I'm searching everywhere and I cannot find Gnu Fortran (any flavor) > > having an ORGANIZATION clause in the OPEN(). > > ORGANIZATION is not an extension that gfortran supports. > ifort, which traces its lineage back to VMS Fortran, supports > ORGANIZATION, but not 'INDEXED', according to > > > https://www.intel.com/content/www/us/en/develop/documentation/fortran-compiler-oneapi-dev-guide-and-reference/top/language-reference/file-operation-i-o-statements/open-statement-specifiers/open-organization-specifier.html > > This is likely a Fortran interface to a VMS speciality; the older > operating systems had stuff like that. UNIX did away with all > the record-orientation (I also remember VSAM and ISAM data sets > on old IBM mainframes) and UNIX and derivatives, and Windows, now > just offers the "stream of bytes" model. > > So, if you need the functionality, you will have to implement it > yourself, possibly via a database. > > Best regards > > Thomas > --0000000000004f9a6d05f65cdc58--