5 ! Contributed by Keith Refson
9 character(len=258) :: inp = ' 1.0 1.0 1.0'
10 character(len=7) :: inp2 = '1 2 3 4'
12 real :: a1, a2, a3, a4
14 read(inp2,*,iostat=ios) a1, a2, a3, a4
15 if (ios /= 0) call abort ()
17 read(inp,*,iostat=ios) a1, a2, a3, a4
18 if (ios == 0) call abort ()
19 ! write(*,*) 'IOSTAT=',ios