gcc/testsuite/gfortran.dg/pr85798.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { 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