Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!sri-spam!mordor!lll-tis!ptsfa!ihnp4!homxb!mhuxt!mhuxm!mhuxo!ulysses!sfmag!sfsup!dwd
From: dwd@sfsup.UUCP (David W. Dougherty)
Newsgroups: comp.lang.fortran
Subject: Re: list directed internal I/O
Message-ID: <1554@sfsup.UUCP>
Date: Fri, 26-Jun-87 08:06:54 EDT
Article-I.D.: sfsup.1554
Posted: Fri Jun 26 08:06:54 1987
Date-Received: Sat, 27-Jun-87 14:03:55 EDT
References: <371@nikhefh.UUCP>
Reply-To: dwd@/guest2/dwdUUCP (David W. Dougherty)
Distribution: world
Organization: AT&T Information Systems
Lines: 34

In article <371@nikhefh.UUCP> i91@nikhefh.UUCP (Fons Rademakers) writes:
>Does somebody know what the ANSI FORTRAN 77 standard says about
>list directed I/O from internal files? 
>
>
>(00008)       read(ch, *) i, j, k
>**** Error #250 on Line 8:
>      program foo
>      character*11 ch
>      integer i, j, k
>      ch = '999,111,222'
>      read(ch, *) i, j, k
>      print *, i, j, k
>      end
>-- 


Try this instead:

	PROGRAM FEE
	CHARACTER*9 CH
	INTEGER I,J,K
	CH='999111222'
	READ(CH,10)I,J,K
10	FORMAT(3I3)
	PRINT*,I,J,K
	END


This always worked for me.

-----
David Dougherty @ (201) 423-3139 || {ihnp4, allegra}!attunix!dwd
AT&T Bell Laboratories