2 c SEGVs in loop.c with -O2.
4 character*80
function nxtlin
(lun
,ierr
,itok
)
5 character onechr*1
,twochr*2
,thrchr*3
8 read (lun
,'(a)',iostat
=ierr
) nxtlin
9 if (nxtlin
(1:1).ne
.'#') then
12 if (nxtlin
(it
:it
).ne
.' ' .and
. nxtlin
(it
+1:it
+1).eq
.' ')
17 if (nxtlin
(itt
:itt
).eq
.'*') itast
=itt
20 do while (nxtlin
(itstrt
:itstrt
).eq
.' ')
26 onechr
=nxtlin
(itstrt
:itstrt
)
28 elseif
(nchrs
.eq
.2) then
29 twochr
=nxtlin
(itstrt
:itstrt
+1)
31 elseif
(nchrs
.eq
.3) then
32 thrchr
=nxtlin
(itstrt
:itstrt
+2)
34 elseif
(nchrs
.eq
.4) then
35 thrchr
=nxtlin
(itstrt
:itstrt
+3)