gcc/testsuite/gfortran.dg/ptr-func-5.f90

   1 ! { dg-do compile }
   2 ! PR fortran/109846
   3 ! CLASS pointer function result in variable definition context
   4
   5 module foo
   6   implicit none
   7   type :: parameter_list
   8   contains
   9     procedure :: sublist, sublist_nores
  10   end type
  11 contains
  12   function sublist (this) result (slist)
  13     class(parameter_list), intent(inout) :: this
  14     class(parameter_list), pointer       :: slist
  15     allocate (slist)
  16   end function
  17   function sublist_nores (this)
  18     class(parameter_list), intent(inout) :: this
  19     class(parameter_list), pointer       :: sublist_nores
  20     allocate (sublist_nores)
  21   end function
  22 end module
  23
  24 program example
  25   use foo
  26   implicit none
  27   type(parameter_list) :: plist
  28   call sub1 (plist%sublist())
  29   call sub1 (plist%sublist_nores())
  30   call sub2 (plist%sublist())
  31   call sub2 (plist%sublist_nores())
  32 contains
  33   subroutine sub1 (plist)
  34     type(parameter_list), intent(inout) :: plist
  35   end subroutine
  36   subroutine sub2 (plist)
  37     type(parameter_list) :: plist
  38   end subroutine
  39 end program