Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/substr_5.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! character(*), parameter :: chrs = '-+.0123456789eEdD' character(*), parameter :: expr = '-+.0123456789eEdD' integer :: i if (index(chrs(:), expr) /= 1) STOP 1 if (index(chrs(14:), expr) /= 0) STOP 2 if (index(chrs(:12), expr) /= 0) STOP 3 if (index(chrs, expr(:)) /= 1) STOP 4 if (index(chrs, expr(1:)) /= 1) STOP 5 if (index(chrs, expr(:1)) /= 1) STOP 6 if (foo(expr) /= 1) STOP 7 if (foo(expr) /= 1) STOP 8 if (foo(expr) /= 1) STOP 9 if (foo(expr(:)) /= 1) STOP 10 if (foo(expr(1:)) /= 1) STOP 11 if (foo(expr(:1)) /= 1) STOP 12 call bar(expr) contains subroutine bar(expr) character(*), intent(in) :: expr character(*), parameter :: chrs = '-+.0123456789eEdD' integer :: foo if (index(chrs(:), expr) /= 1) STOP 13 if (index(chrs(14:), expr) /= 0) STOP 14 if (index(chrs(:12), expr) /= 0) STOP 15 if (index(chrs, expr(:)) /= 1) STOP 16 if (index(chrs, expr(1:)) /= 1) STOP 17 if (index(chrs, expr(:1)) /= 1) STOP 18 end subroutine bar integer function foo(expr) character(*), intent(in) :: expr character(*), parameter :: chrs = '-+.0123456789eEdD' foo = index(chrs, expr) end function foo end