1! { dg-do compile } 2! 3! Test that the anti-aliasing restriction does not knock out valid code. 4! 5! Contributed by Andrew Balwin on 6! https://groups.google.com/forum/#!topic/comp.lang.fortran/oiXdl1LPb_s 7! 8 PROGRAM TEST 9 IMPLICIT NONE 10 11 TYPE FOOBAR 12 INTEGER, ALLOCATABLE :: COMP(:) 13 END TYPE 14 15 TYPE (FOOBAR) :: MY_ARRAY(6) 16 17 ALLOCATE (MY_ARRAY(1)%COMP(10)) 18 19 CALL MOVE_ALLOC (MY_ARRAY(1)%COMP, MY_ARRAY(2)%COMP) 20 21 END PROGRAM TEST 22