1! { dg-do compile }
2!
3! PR fortran/51448
4!
5! Contribued by François Willot
6!
7  PROGRAM MAIN
8  IMPLICIT NONE
9  TYPE mytype
10    REAL b(2)
11  END TYPE mytype
12  TYPE(mytype) a
13  DOUBLE PRECISION, ALLOCATABLE :: x(:)
14  ALLOCATE(x(2))
15  a%b=0.0E0
16  x=a%b
17  END
18