Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/stabilize-6812.41.B
/
.
/
gcc
/
testsuite
/
gnat.dg
/
boolean_subtype2.ads
blob: 82e192b1dc44e25ac001c8f399b7f597295254c3 [
file
] [
log
] [
blame
]
with
Boolean_Subtype2_Pkg
;
use
Boolean_Subtype2_Pkg
;
package
Boolean_Subtype2
is
subtype B
is
Boolean
;
function
Is_String_Type
(
Id
:
Entity_Id
)
return
B
;
end
Boolean_Subtype2
;