gcc/testsuite/gfortran.dg/allocate_alloc_opt_13.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/51953
   4 !
   5 !
   6 type t
   7 end type t
   8
   9 class(t), allocatable :: a, c(:), e(:)
  10 class(t), pointer :: b, d(:)
  11
  12 allocate (a, b, source=c(1))
  13 allocate (c(4), d(6), source=e)
  14
  15 allocate (a, b, source=f())
  16 allocate (c(1), d(6), source=g())
  17
  18 contains
  19 function f()
  20   class(t), allocatable :: f
  21 end function
  22 function g()
  23   class(t), allocatable :: g(:)
  24 end function
  25 end