1 C Test Fortran 77 T edit descriptor for input
2 C (ANSI X3.9-1978 Section 13.5.3.2)
4 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
13 if ( i
.ne
.3 ) call abort
()
14 read(in
,'(5X,TL4,I2)') i
15 if ( i
.ne
.23 ) call abort
()
16 read(in
,'(3X,I1,TR3,I1)') i
,j
17 if ( i
.ne
.4 ) call abort
()
18 if ( j
.ne
.8 ) call abort
()
20 in
= ' 1.5 -12.62 348.75 1.0E-6'
21 100 format(F6
.0
,TL6
,I4
,1X
,I1
,8X
,I5
,F3
.0
,T10
,F5
.0
,T17
,F6
.0
,TR2
,F6
.0
)
22 read(in
,100) a
,i
,j
,k
,b
,c
,d
,e
23 if ( abs
(a
-1.5).gt
.1.0e-5 ) call abort
()
24 if ( i
.ne
.1 ) call abort
()
25 if ( j
.ne
.5 ) call abort
()
26 if ( k
.ne
.348 ) call abort
()
27 if ( abs
(b
-0.75).gt
.1.0e-5 ) call abort
()
28 if ( abs
(c
-12.62).gt
.1.0e-5 ) call abort
()
29 if ( abs
(d
-348.75).gt
.1.0e-4 ) call abort
()
30 if ( abs
(e
-1.0e-6).gt
.1.0e-11 ) call abort
()