old-autovect-branch/gcc/testsuite/gfortran.dg/g77/980419-2.f

   1 c { dg-do compile }
   2 c     SEGVs in loop.c with -O2.
   3
   4       character*80 function nxtlin(lun,ierr,itok)
   5       character onechr*1,twochr*2,thrchr*3
   6       itok=0
   7       do while (.true.)
   8          read (lun,'(a)',iostat=ierr) nxtlin
   9          if (nxtlin(1:1).ne.'#') then
  10             ito=0
  11             do 10 it=1,79
  12                if (nxtlin(it:it).ne.' ' .and. nxtlin(it+1:it+1).eq.' ')
  13      $              then
  14                   itast=0
  15                   itstrt=0
  16                   do itt=ito+1,it
  17                      if (nxtlin(itt:itt).eq.'*') itast=itt
  18                   enddo
  19                   itstrt=ito+1
  20                   do while (nxtlin(itstrt:itstrt).eq.' ')
  21                      itstrt=itstrt+1
  22                   enddo
  23                   if (itast.gt.0) then
  24                      nchrs=itast-itstrt
  25                      if (nchrs.eq.1) then
  26                         onechr=nxtlin(itstrt:itstrt)
  27                         read (onechr,*) itokn
  28                      elseif (nchrs.eq.2) then
  29                         twochr=nxtlin(itstrt:itstrt+1)
  30                         read (twochr,*) itokn
  31                      elseif (nchrs.eq.3) then
  32                         thrchr=nxtlin(itstrt:itstrt+2)
  33                         read (thrchr,*) itokn
  34                      elseif (nchrs.eq.4) then
  35                         thrchr=nxtlin(itstrt:itstrt+3)
  36                         read (thrchr,*) itokn
  37                      endif
  38                      itok=itok+itokn
  39                   else
  40                      itok=itok+1
  41                   endif
  42                   ito=it+1
  43                endif
  44  10         continue
  45             return
  46          endif
  47       enddo
  48       return
  49       end