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