gcc/testsuite/gfortran.dg/der_pointer_3.f90

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