source:
examples/Rank2.c
@
c45d2fa
Last change on this file since c45d2fa was bf71cfd, checked in by , 6 years ago | |
---|---|
|
|
File size: 342 bytes |
Rev | Line | |
---|---|---|
[a65d92e] | 1 | int ?=?( int *, int ); |
2 | forall(dtype DT) DT * ?=?( DT **, DT * ); | |
[51b7345] | 3 | |
[a65d92e] | 4 | void a() { |
[55ba7339] | 5 | forall( otype T ) void f( T ); |
6 | void g( forall( otype U ) void p( U ) ); | |
[a65d92e] | 7 | g( f ); |
[51b7345] | 8 | } |
9 | ||
[a65d92e] | 10 | void g() { |
11 | void h( int *null ); | |
[55ba7339] | 12 | forall( otype T ) T id( T ); |
[a65d92e] | 13 | forall( dtype T ) T *0; |
14 | int 0; | |
15 | h( id( id( id( 0 ) ) ) ); | |
[51b7345] | 16 | } |
[a65d92e] | 17 | |
18 | // Local Variables: // | |
19 | // tab-width: 4 // | |
20 | // End: // |
Note: See TracBrowser
for help on using the repository browser.