1double f[1024];
2double (&fr) [1024] = f;
3double gbuf[1024];
4double *g = gbuf;
5double *&gr = g;
6