gcc/testsuite/gfortran.dg/substr_5.f90

   1 ! { dg-do run }
   2 !
   3   character(*), parameter  :: chrs = '-+.0123456789eEdD'
   4   character(*), parameter  :: expr = '-+.0123456789eEdD'
   5   integer :: i
   6
   7   if (index(chrs(:), expr) /= 1) STOP 1
   8   if (index(chrs(14:), expr) /= 0) STOP 2
   9   if (index(chrs(:12), expr) /= 0) STOP 3
  10   if (index(chrs, expr(:)) /= 1) STOP 4
  11   if (index(chrs, expr(1:)) /= 1) STOP 5
  12   if (index(chrs, expr(:1)) /= 1) STOP 6
  13
  14   if (foo(expr) /= 1) STOP 7
  15   if (foo(expr) /= 1) STOP 8
  16   if (foo(expr) /= 1) STOP 9
  17   if (foo(expr(:)) /= 1) STOP 10
  18   if (foo(expr(1:)) /= 1) STOP 11
  19   if (foo(expr(:1)) /= 1) STOP 12
  20
  21   call bar(expr)
  22
  23 contains
  24   subroutine bar(expr)
  25     character(*), intent(in) :: expr
  26     character(*), parameter  :: chrs = '-+.0123456789eEdD'
  27     integer :: foo
  28
  29     if (index(chrs(:), expr) /= 1) STOP 13
  30     if (index(chrs(14:), expr) /= 0) STOP 14
  31     if (index(chrs(:12), expr) /= 0) STOP 15
  32     if (index(chrs, expr(:)) /= 1) STOP 16
  33     if (index(chrs, expr(1:)) /= 1) STOP 17
  34     if (index(chrs, expr(:1)) /= 1) STOP 18
  35   end subroutine bar
  36
  37   integer function foo(expr)
  38     character(*), intent(in) :: expr
  39     character(*), parameter  :: chrs = '-+.0123456789eEdD'
  40
  41     foo = index(chrs, expr)
  42   end function foo
  43
  44 end