21 lines
380 B
Fortran
21 lines
380 B
Fortran
! { 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" } }
|