1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { 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
|
