Subversion Repositories openrisc

! { dg-do compile }

! PR 18568

! Find pointer-to-array components

module ints

   type :: bar

      integer, pointer :: th(:)

   end type bar

contains

   function foo(b)

      type(bar), intent(in) :: b

      integer :: foo(size(b%th))

      foo = 0

   end function foo

end module ints

program size_test

  use ints

end program size_test

! { dg-final { cleanup-modules "ints" } }