pr17164.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 12 行

! { dg-do run }
! pr17164
! index aborts when substring is longer than string
      implicit none
      character*5 x
      integer i
      x='12345'
      i=index(x,'blablabl')
      if (i.ne.0) call abort
      end