mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
22 lines
492 B
Fortran
22 lines
492 B
Fortran
! { 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
|