gcc/testsuite/gfortran.dg/allocate_derived_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 45577: [4.6 Regression] Bogus(?) "... type incompatible with source-expr ..." error
   4 !
   5 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
   6
   7 program main
   8
   9 type b_obj
  10   integer,allocatable :: c(:)
  11   real :: r = 5.
  12 end type b_obj
  13
  14 type (b_obj),allocatable :: b(:)
  15 integer,allocatable :: c(:)
  16
  17 allocate(b(3),c(3))
  18
  19 end program main