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