| ! { 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" } } |