Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
test_ext1.adb
blob: 8accc70d04231ec8a055958bf671ac02701465a1 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
ext1
;
use
ext1
;
procedure test_ext1
is
X
:
Regular_Smiley
;
begin
X
.
Set_Mood
;
end
;