------- Comment #3 from jv244 at cam dot ac dot uk 2008-11-14 08:34 ------- This could be somewhat similar, I really wonder if this needs a temp:
TYPE T1 INTEGER :: a(3) END TYPE T1 TYPE(T1), POINTER :: x,y ALLOCATE(x,y) x%a=y%a END -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36933