1! { dg-do compile }
2! PR 18568
3! Find pointer-to-array components
4module ints
5   type :: bar
6      integer, pointer :: th(:)
7   end type bar
8contains
9   function foo(b)
10      type(bar), intent(in) :: b
11      integer :: foo(size(b%th))
12      foo = 0
13   end function foo
14end module ints
15
16program size_test
17  use ints
18end program size_test
19