2 ! { dg-options "-O0 -fdump-tree-original" }
5 ! ICE on defined assignment with class arrays.
13 generic :: assignment (=) => assgn_bar
14 procedure, private :: assgn_bar
19 elemental subroutine assgn_bar (a, b)
20 class (bar), intent (inout) :: a
21 class (bar), intent (in) :: b
29 end subroutine assgn_bar
35 type (bar), allocatable :: foobar(:)
38 foobar = [bar(1), bar(2)]
39 if (any(foobar%i /= [1, 2])) STOP 1
42 ! { dg-final { scan-tree-dump-not "_gfortran_internal_pack" "original" } }
43 ! { dg-final { scan-tree-dump-not "_gfortran_internal_unpack" "original" } }