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
/
opt87_pkg.adb
blob
4bfdd0a8eff5d861d7ab7cb5d6ec6ffebc73d5b1
1
with
Text_IO
;
use
Text_IO
;
2
3
package body
Opt87_Pkg
is
4
5
procedure
Print
(
Msg
:
String
;
Location
:
String
)
is
6
Final_Msg
:
constant
String
:=
7
Ascii
.
Cr
&
"info: "
&
Msg
&
" ("
&
Location
&
")"
&
Ascii
.
Cr
;
8
begin
9
Put_Line
(
Final_Msg
);
10
end
;
11
12
end
Opt87_Pkg
;