Catching allocation errors when duplicating derived type structures

[OP1]

Is there a way to catch a potential memory allocation error when using the statement A = B, where A and Bare an allocatable, derived-type variable which has allocatable array components?

....

! Declare A and B.
TYPE MY_TYPE
REAL(KIND=8),ALLOCATABLE :: X(:,:)
END TYPE MY_TYPE
TYPE(MY_TYPE),ALLOCATABLE :: A(:),B(:)

! Theautomatic allocations performed implicitly herein might fail...
A = B

....

Or should I go through the minutiae of allocating one by one all of the array components?

Thanks,

Olivier

[Steven_L_Intel1]

If you want to catch the errors you will have to handle all of the ALLOCATEs yourself.