blob: bc72d5d1f87e7d6d7b948c5871678e87536e3bc5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { 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
|
