gcc/testsuite/gfortran.dg/typebound_call_30.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 86830: [8/9 Regression] Contiguous array pointer function result not recognized as contiguous
   4 !
   5 ! Contributed by <only_for_nouse@gmx.de>
   6
   7 module m
   8   implicit none
   9
  10   type :: t1
  11    contains
  12      procedure :: get_ptr
  13   end type
  14
  15   type :: t2
  16      class(t1), allocatable :: c
  17   end type
  18
  19 contains
  20
  21   function get_ptr(this)
  22     class(t1) :: this
  23     real, dimension(:), contiguous, pointer :: get_ptr
  24   end function
  25
  26   subroutine test()
  27     real, dimension(:), contiguous, pointer:: ptr
  28     type(t2) :: x
  29     ptr => x%c%get_ptr()
  30   end subroutine
  31
  32 end module