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
Skip analyzer strndup test on hppa*-*-hpux*
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
opt43.adb
blob
35b407c0afdc47b41d80fe82b57c6563b05e7af7
1
-- { dg-do compile }
2
-- { dg-options "-O -gnatws" }
3
4
procedure
Opt43
is
5
6
function
Func
return
Integer
is
7
begin
8
if
False
then
9
return
0
;
10
end if
;
11
end
;
12
13
begin
14
15
if
Func
=
Func
then
16
raise
Program_Error
;
17
end if
;
18
19
exception
20
when
Program_Error
=>
null
;
21
end
;