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>
7 C { dg-options "-std=legacy" }
16 read(in
,'(5X,TL4,I2)') i
18 read(in
,'(3X,I1,TR3,I1)') i
,j
22 in
= ' 1.5 -12.62 348.75 1.0E-6'
23 100 format(F6
.0
,TL6
,I4
,1X
,I1
,8X
,I5
,F3
.0
,T10
,F5
.0
,T17
,F6
.0
,TR2
,F6
.0
)
24 read(in
,100) a
,i
,j
,k
,b
,c
,d
,e
25 if ( abs
(a
-1.5).gt
.1.0e-5 ) STOP 5
28 if ( k
.ne
.348 ) STOP 8
29 if ( abs
(b
-0.75).gt
.1.0e-5 ) STOP 9
30 if ( abs
(c
-12.62).gt
.1.0e-5 ) STOP 10
31 if ( abs
(d
-348.75).gt
.1.0e-4 ) STOP 11
32 if ( abs
(e
-1.0e-6).gt
.1.0e-11 ) STOP 12