ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr85798.f90

! { dg-do compile }
program p
   type t
      integer, allocatable :: a(:)
   end type
   type u
      real x
      type(t) y
   end type
   type(t) :: z
   type(u) :: q
   data z%a(1) / 789 /     ! { dg-error "Allocatable component" }
   data q%y%a(1) / 789 /   ! { dg-error "Allocatable component" }
end