[BACK]Return to io.f CVS log [TXT] [DIR] Up to [Research Unix] / researchv10no / cmd / f2c / doc
File:  [Research Unix] / researchv10no / cmd / f2c / doc / io.f
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:35 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

      integer count(10)
      real val(10)
      read(*,*) count, val
      read(*,*) (count(i), val(i), i = 1, 10)
      read(*,*,err=10) count, val
c      read(*,*,end=10,err=20) count,val
 20   continue
 10	end
unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.