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
RISC-V: Regenerate opt urls.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
assumed_charlen_substring_1.f90
blob
808c1f44a53b044eda4d8f620d53a5689f998b28
1
! { dg-do compile }
2
! { dg-options "-O -fdump-tree-original" }
3
! PR 51338 - this used to ICE.
4
! Original test case by Bud Davis.
5
subroutine
foo
(
a
,
b
)
6
character
(
len
=*) ::
a
7
if
(
a
(
1
:) /=
a
(
1
:))
call
do_not_use
8
end subroutine
foo
9
! { dg-final { scan-tree-dump-times "do_not_use" 0 "original" } }