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