Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!mcvax!nikhefh!i91
From: i91@nikhefh.UUCP (Fons Rademakers)
Newsgroups: comp.lang.fortran
Subject: list directed internal I/O
Message-ID: <371@nikhefh.UUCP>
Date: Sun, 21-Jun-87 13:03:47 EDT
Article-I.D.: nikhefh.371
Posted: Sun Jun 21 13:03:47 1987
Date-Received: Fri, 26-Jun-87 03:33:57 EDT
Reply-To: i91@nikhefh.UUCP (Fons Rademakers)
Distribution: world
Organization: Nikhef-H, Amsterdam (the Netherlands).
Lines: 33

Does somebody know what the ANSI FORTRAN 77 standard says about
list directed I/O from internal files? 

A little test program (see listing at end of message) gives on 
the VAX and Gould the expected result of: 
999  111  222  
while the Apollo FTN compiler is giving the following error message:

(00008)       read(ch, *) i, j, k
**** Error #250 on Line 8:
list directed format not allowed with internal file or ENCODE/DECODE
1 errors, no warnings in FOO, Fortran version 8.40

  -- Fons Rademakers
      
======= test program ========
      program foo
      
      character*11 ch
      integer i, j, k
      
      ch = '999,111,222'
      
      read(ch, *) i, j, k
      
      print *, i, j, k
      
      end
-- 
Org:    NIKHEF-H, National Institute for Nuclear and High-Energy Physics.
Mail:   Kruislaan 409, P.O. Box 41882, 1009 DB Amsterdam, the Netherlands
UUCP:   {decvax,cernvax,uck,unido,vmucnam,seismo}!mcvax!nikhefh!i91
BITNET: nikhefh!i91@mcvax.bitnet                    Telex: 10262 (hef nl)