[AArch64] Merge stores of D-register values with different modes
[official-gcc.git] / gcc / testsuite / gfortran.dg / class_5.f03
blob0307cae4f89aee7b151944caac5ec8168c3fe395
1 ! { dg-do compile }
3 ! PR 41719: [OOP] invalid: Intrinsic assignment involving polymorphic variables
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
7  implicit none
9  type t1
10    integer :: a
11  end type
13  type, extends(t1) :: t2
14    integer :: b
15  end type
17  class(t1),pointer :: cp
18  type(t2) :: x
20  x = t2(45,478)
21  allocate(t2 :: cp)
23  cp = x   ! { dg-error "Nonallocatable variable must not be polymorphic" }
25  select type (cp)
26  type is (t2)
27    print *, cp%a, cp%b
28  end select
30 end