1! { dg-do run } 2! { dg-options "-fdump-tree-original" } 3! PR fortran/36462 4! 5 implicit none 6 character(len=10,kind=1) string1 7 character(len=10,kind=4) string4 8 string1 = 'ABCDEEDCBA' 9 string4 = 'ABCDEEDCBA' 10 11 if(index(string1,1_'A') /= 1) STOP 1 12 if(index(string4,4_'A') /= 1) STOP 2 13 if(index(string1,1_'A',kind=4) /= 1_4) STOP 3 14 if(index(string4,4_'A',kind=4) /= 1_4) STOP 4 15 if(index(string1,1_'A',kind=1) /= 1_1) STOP 5 16 if(index(string4,4_'A',kind=1) /= 1_1) STOP 6 17 18 if(index(string1,1_'A',back=.true.) /= 10) STOP 7 19 if(index(string4,4_'A',back=.true.) /= 10) STOP 8 20 if(index(string1,1_'A',kind=4,back=.true.) /= 10_4) STOP 9 21 if(index(string4,4_'A',kind=4,back=.true.) /= 10_4) STOP 10 22 if(index(string1,1_'A',kind=1,back=.true.) /= 10_1) STOP 11 23 if(index(string4,4_'A',kind=1,back=.true.) /= 10_1) STOP 12 24 25 if(index(string1,1_'A',back=.false.) /= 1) STOP 13 26 if(index(string4,4_'A',back=.false.) /= 1) STOP 14 27 if(index(string1,1_'A',kind=4,back=.false.) /= 1_4) STOP 15 28 if(index(string4,4_'A',kind=4,back=.false.) /= 1_4) STOP 16 29 if(index(string1,1_'A',kind=1,back=.false.) /= 1_1) STOP 17 30 if(index(string4,4_'A',kind=1,back=.false.) /= 1_1) STOP 18 31 32 if(scan(string1,1_'A') /= 1) STOP 19 33 if(scan(string4,4_'A') /= 1) STOP 20 34 if(scan(string1,1_'A',kind=4) /= 1_4) STOP 21 35 if(scan(string4,4_'A',kind=4) /= 1_4) STOP 22 36 if(scan(string1,1_'A',kind=1) /= 1_1) STOP 23 37 if(scan(string4,4_'A',kind=1) /= 1_1) STOP 24 38 39 if(scan(string1,1_'A',back=.true.) /= 10) STOP 25 40 if(scan(string4,4_'A',back=.true.) /= 10) STOP 26 41 if(scan(string1,1_'A',kind=4,back=.true.) /= 10_4) STOP 27 42 if(scan(string4,4_'A',kind=4,back=.true.) /= 10_4) STOP 28 43 if(scan(string1,1_'A',kind=1,back=.true.) /= 10_1) STOP 29 44 if(scan(string4,4_'A',kind=1,back=.true.) /= 10_1) STOP 30 45 46 if(scan(string1,1_'A',back=.false.) /= 1) STOP 31 47 if(scan(string4,4_'A',back=.false.) /= 1) STOP 32 48 if(scan(string1,1_'A',kind=4,back=.false.) /= 1_4) STOP 33 49 if(scan(string4,4_'A',kind=4,back=.false.) /= 1_4) STOP 34 50 if(scan(string1,1_'A',kind=1,back=.false.) /= 1_1) STOP 35 51 if(scan(string4,4_'A',kind=1,back=.false.) /= 1_1) STOP 36 52 end 53 54! { dg-final { scan-tree-dump-times "if ..integer.kind=1.. _gfortran_string_index" 6 "original" } } 55! { dg-final { scan-tree-dump-times "if ..integer.kind=1.. _gfortran_string_scan" 6 "original" } } 56