Files
carbon-lang/explorer/testdata/named_constraint/extends.carbon
T
Richard Smith 4daaa4866f Rename Type -> type, per #2360. (#2507)
Also make minor updates to the skeletal design in
docs/design/name_lookup.md following #2113, as there are no longer any prelude names that are made available to unqualified name lookup by default.

Add `type` to the keyword list in
docs/design/lexical_conventions/words.md, following #2360.
2023-01-04 14:22:30 -08:00

54 lines
1.2 KiB
Plaintext

// Part of the Carbon Language project, under the Apache License v2.0 with LLVM
// Exceptions. See /LICENSE for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
// AUTOUPDATE
// RUN: %{explorer-run}
// RUN: %{explorer-run-trace}
// CHECK:STDOUT: 5
// CHECK:STDOUT: 5
// CHECK:STDOUT: 5
// CHECK:STDOUT: 5
// CHECK:STDOUT: 5
// CHECK:STDOUT: result: 0
package ExplorerTest api;
interface Maker(T:! type) {
fn Make[self: Self]() -> T;
}
constraint IndirectMaker(T:! type) {
extends Maker(T*);
}
constraint MoreIndirectMaker {
extends IndirectMaker(i32);
}
class PointerFactory {
var p: i32*;
external impl as Maker(i32*) {
fn Make[self: Self]() -> i32* { return self.p; }
}
}
fn CallIndirect[T:! IndirectMaker(i32)](x: T) -> i32 {
return *x.Make();
}
fn CallMoreIndirect[T:! MoreIndirectMaker](x: T) -> i32 {
return *x.Make();
}
fn Main() -> i32 {
var n: i32 = 5;
var f: PointerFactory = {.p = &n};
Print("{0}", *f.(Maker(i32*).Make)());
Print("{0}", *f.(IndirectMaker(i32).Make)());
Print("{0}", *f.(MoreIndirectMaker.Make)());
Print("{0}", CallIndirect(f));
Print("{0}", CallMoreIndirect(f));
return 0;
}