gcc/testsuite/gfortran.dg/illegal_boz_arg_4.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2018" }
   3 ! PR fortran/103413
   4 ! Contributed by G.Steinmetz
   5
   6 program p
   7   type t
   8      class(*), allocatable :: a
   9   end type
  10   type(t) :: x
  11   allocate (x%a, source=z'1') ! { dg-error "type incompatible" }
  12   allocate (x%a, mold=z'1')   ! { dg-error "type incompatible" }
  13 end