Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/index.f90 @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 84e7813d76e9
children
line wrap: on
line source

! { dg-do run }
! pr35940
      program FA1031
      implicit none
      integer I
      INTEGER IDA1(10)
      LOGICAL GDA1(10)
      INTEGER RSLT(10)
      DATA RSLT /4,1,4,1,4,1,4,1,4,1/
      IDA1   = 0
      gda1 = (/ (i/2*2 .ne. I, i=1,10) /)

      IDA1 = INDEX ( 'DEFDEF' , 'DEF', GDA1 )    !fails
      do I = 1, 10
         if (IDA1(i).NE.RSLT(i)) STOP 1
      end do
      IDA1 = INDEX ( (/ ('DEFDEF',i=1,10) /) , 'DEF', GDA1 )    !works
      do I = 1, 10
         if (IDA1(i).NE.RSLT(i)) STOP 2
      end do

      END