宣告n维数组

Question

有没有一种方法可以声明一个数组，该数组以后可以在代码中分配任意数量的维（以任何形状）？有点像经典的延迟形状，但请记住，我在声明时不知道等级，形状或大小。例如，类似于

real, allocatable :: a(:) 
integer, parameter :: sh = [4,2,2]

allocate(a(sh))

不会引发错误（在这种情况下当然会发生）。