2 ! Test of gfortran list directed read> check delimiters are correctly
3 ! treated. Written in f77 so that g77 will run for comparison.
5 ! f , e and i edit reads are terminated separately by read_real.c
10 integer i(10),l(10),k,j
13 data y / 1.0,2.0,3.0,-1.0,-1.0,-1.0,4.0,4.0,99.0,99.0 /
14 data l /1,2,3,-1,-1,-1,4,4,99,99/
16 open (10,status="scratch")
17 write (10,*) " 1.0, 2.0 , 3.0,, 2* , 2*4.0 , 5*99.0"
18 write (10,*) " 1.0e0, 2.0e0 , 3.0e0,, 2* , 2*4.0e0 , 5*99.0e0"
19 write (10,*) " 1, 2 , 3,, 2* , 2*4 , 5*99"
20 write (10,*) " 1, 2 , 3,, 2* , 2*4 , 5*99"
26 read (10,*,iostat=ier) x
27 if (ier.ne.0) call abort
29 if (x(k).ne.y(k)) call abort
32 READ(10,*,iostat=ier) x
33 if (ier.ne.0) call abort
35 if (x(k).ne.y(k)) call abort
38 READ(10,*,iostat=ier) x
39 if (ier.ne.0) call abort
41 if (x(k).ne.y(k)) call abort
48 READ(10,*,iostat=ier) (i(j),j=1,10)
49 if (ier.ne.0) call abort
51 if (i(k).ne.y(k)) call abort