就像这样就可以了。不必使用可分配数组。
但是，在某些编译器下，这样可能会造成堆栈溢出。（stack overflow）
尤其是对 a 较大的情况下。
如果出现这种情况，你可以选择：
调大堆栈，具体操作取决于你使用的编译器产品。
换用 allocatable 数组。
