(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
move_alloc_18.f90
! { dg-do compile }
!
! Test that the anti-aliasing restriction does not knock out valid code.
!
! Contributed by  Andrew Balwin on
! https://groups.google.com/forum/#!topic/comp.lang.fortran/oiXdl1LPb_s
!
      PROGRAM TEST
        IMPLICIT NONE

        TYPE FOOBAR
          INTEGER, ALLOCATABLE :: COMP(:)
        END TYPE

        TYPE (FOOBAR) :: MY_ARRAY(6)

        ALLOCATE (MY_ARRAY(1)%COMP(10))

        CALL MOVE_ALLOC (MY_ARRAY(1)%COMP, MY_ARRAY(2)%COMP)

      END PROGRAM TEST