[AArch64] Merge stores of D-register values with different modes
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr57904.f90
blob69fa7ed78278140bdb12c5069a9918bd7902391a
1 ! { dg-do compile }
2 ! { dg-options "-O2" }
4 program test
5 call test2 ()
6 contains
7 subroutine test2 ()
8 type t
9 integer, allocatable :: x
10 end type t
12 type t2
13 class(t), allocatable :: a
14 end type t2
16 type(t2) :: one, two
18 allocate (two%a)
19 one = two
20 end subroutine test2
21 end program test