3 ! PR 43388: [F2008][OOP] ALLOCATE with MOLD=
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
13 class(t
),allocatable
:: x
17 allocate(x
,MOLD
=z1
,MOLD
=z2
) ! { dg-error "Redundant MOLD tag" }
18 allocate(x
,SOURCE
=z1
,MOLD
=z2
) ! { dg-error "conflicts with SOURCE tag" }
19 allocate(t
::x
,MOLD
=z1
) ! { dg-error "conflicts with the typespec" }
21 allocate(x
,MOLD
=z3
) ! { dg-error "is type incompatible" }