X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fg77.f-torture%2Fcompile%2F980419-2.f;fp=gcc%2Ftestsuite%2Fg77.f-torture%2Fcompile%2F980419-2.f;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=ac9134dc8a792f720b1df7280d12bf09ef845a1e;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/gcc/testsuite/g77.f-torture/compile/980419-2.f b/gcc/testsuite/g77.f-torture/compile/980419-2.f
deleted file mode 100644
index ac9134dc..00000000
--- a/gcc/testsuite/g77.f-torture/compile/980419-2.f
+++ /dev/null
@@ -1,48 +0,0 @@
-c     SEGVs in loop.c with -O2.
-
-      character*80 function nxtlin(lun,ierr,itok)
-      character onechr*1,twochr*2,thrchr*3
-      itok=0
-      do while (.true.)
-         read (lun,'(a)',iostat=ierr) nxtlin
-         if (nxtlin(1:1).ne.'#') then
-            ito=0
-            do 10 it=1,79
-               if (nxtlin(it:it).ne.' ' .and. nxtlin(it+1:it+1).eq.' ')
-     $              then
-                  itast=0
-                  itstrt=0
-                  do itt=ito+1,it
-                     if (nxtlin(itt:itt).eq.'*') itast=itt
-                  enddo
-                  itstrt=ito+1
-                  do while (nxtlin(itstrt:itstrt).eq.' ')
-                     itstrt=itstrt+1
-                  enddo
-                  if (itast.gt.0) then
-                     nchrs=itast-itstrt
-                     if (nchrs.eq.1) then
-                        onechr=nxtlin(itstrt:itstrt)
-                        read (onechr,*) itokn
-                     elseif (nchrs.eq.2) then
-                        twochr=nxtlin(itstrt:itstrt+1)
-                        read (twochr,*) itokn
-                     elseif (nchrs.eq.3) then
-                        thrchr=nxtlin(itstrt:itstrt+2)
-                        read (thrchr,*) itokn
-                     elseif (nchrs.eq.4) then
-                        thrchr=nxtlin(itstrt:itstrt+3)
-                        read (thrchr,*) itokn
-                     endif
-                     itok=itok+itokn
-                  else
-                     itok=itok+1
-                  endif
-                  ito=it+1
-               endif
- 10         continue
-            return
-         endif
-      enddo
-      return
-      end