Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/ckit/regression/valid-programs.obs/t7.c
ViewVC logotype

Annotation of /sml/trunk/ckit/regression/valid-programs.obs/t7.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 597 - (view) (download) (as text)

1 : dbm 597 int (**x[4]) (int,int,int);
2 :    
3 :     int (*(*y)[10]) (int,int,int);
4 :    
5 :     extern int (nar) (int x,int y,int z);
6 :    
7 :     int nar (int x,int y,int z) {
8 :     return 3;
9 :     }
10 :    
11 :     typedef int bar;
12 :    
13 :     static int g;
14 :    
15 :     static int narn (int x,int y,int z) {
16 :     return (x+y+z);
17 :     }
18 :    
19 :     void main ()
20 :     { int (**x1) (int,int,int);
21 :     int (*x2) (int,int,int);
22 :    
23 :     int (**y1) (int,int,int);
24 :     int (*y2) (int,int,int);
25 :    
26 :     int i,j;
27 :    
28 :     *x[1] = &nar;
29 :     x1 = x[1];
30 :     x2 = *x1;
31 :    
32 :    
33 :     y1 = *y;
34 :     y2 = y1[0];
35 :    
36 :    
37 :     i = (*x2) (4,5,6);
38 :     j = (*y2)(4,5,6);
39 :     return;
40 :     }
41 :    
42 :    
43 :    
44 :    

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0