| ! { dg-do run } |
| ! { dg-options "-fdump-tree-original" } |
| ! { dg-final { scan-tree-dump-times "string_index" 0 "original" } } |
| ! PR fortran/95979 |
| |
| program p |
| implicit none |
| integer, parameter :: i0 = index( 'abcd', 'b' , .true. , kind=4) |
| integer, parameter :: i1(*) = index(['abcd'], 'b' , .true. , kind=4) |
| integer, parameter :: i2(*) = index( 'abcd' ,['b'], .true. ) |
| integer, parameter :: i3(*) = index( 'abcd' , 'b' ,[.true.] ) |
| integer, parameter :: i4(*) = index(['abcd'],['b'],[.true.], kind=8) |
| if (size (i1) /= 1) stop 1 |
| if (size (i2) /= 1) stop 2 |
| if (size (i3) /= 1) stop 3 |
| if (size (i4) /= 1) stop 4 |
| if (i0 /= 2) stop 5 |
| if (i1(1) /= 2 .or. i2(1) /= 2 .or. i3(1) /= 2 .or. i4(1) /= 2) stop 6 |
| end |