Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
inline3.adb
blob: 9eae4696ff0b5cd896dd8f3735612e17588bf6af [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
error
"not marked 'Inline_Always'"
""
{
target
*-*-*
}
0
}
--
{
dg
-
error
"cannot be inlined"
""
{
target
*-*-*
}
0
}
with
Inline3_Pkg
;
use
Inline3_Pkg
;
procedure
Inline3
is
begin
Test
(
0
);
end
;