F2003 I/O Start

[Jerry DeLisle]

Jerry DeLisle wrote:
---- snip ----
> I created a local experimental branch but only got as far as 
> studying it a little bit.  I had to drop the effort because we 
> discovered quite a few F95 issues.  I think (knock on wood) that we have 
> most of the F95 I/O problems tackled.
> 
---- snip ----
I have the initial bits from FX merged in with trunk now.  I have also managed 
to add the WAIT statement which was not there.  The following compiles:

real :: a(10000), b(10000)
open(10, file='mydata', delim="apostrophe", asynchronous='yes')
read(10,'(10f8.3)', asynchronous='yes') a

! Do some stuff b

wait(10)

! Do some stuff with a

end

I don't have all the internals for WAIT yet of course, and nothing in the 
library, but I am getting the framework in place.  The dt_parm structure is 
getting built for the OPEN and READ.

     dt_parm.2.common.filename = &"test1.f90"[1]{lb: 1 sz: 1};
     dt_parm.2.common.line = 3;
     dt_parm.2.asynchronous = &"yes"[1]{lb: 1 sz: 1};
     dt_parm.2.asynchronous_len = 3;
     dt_parm.2.format = &"(10f8.3)"[1]{lb: 1 sz: 1};
     dt_parm.2.format_len = 8;
     dt_parm.2.common.flags = 266240;
     dt_parm.2.common.unit = 10;

Onward we go!

Jerry