gcc/testsuite/gfortran.dg/move_alloc_18.f90

   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