repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
boz_6.f90
blob
379a44f324e7ad7ed9b94b0f1a496579d2f425ce
1
! { dg-do run }
2
! { dg-options "-std=gnu" }
3
! PR 24917
4
program
test
5
integer
ib
,
io
,
iz
,
ix
6
integer
jb
,
jo
,
jz
,
jx
7
data
ib
,
jb
/
b
'111'
,
'111'
b
/
8
data
io
,
jo
/
o
'234'
,
'234'
o
/
9
data
iz
,
jz
/
z
'abc'
,
'abc'
z
/
10
data
ix
,
jx
/
x
'abc'
,
'abc'
x
/
11
if
(
ib
/=
jb
)
STOP
1
12
if
(
io
/=
jo
)
STOP
2
13
if
(
iz
/=
jz
)
STOP
3
14
if
(
ix
/=
jx
)
STOP
4
15
end program
test