* tree-loop-distribution.c (struct partition): New field recording

[official-gcc.git] / gcc / testsuite / gfortran.dg / deferred_type_proc_pointer_1.f90

! { dg-do compile }
!
! PR fortran/45170
! PR fortran/52158
!
! Contributed by Tobias Burnus

module test
 implicit none
 type t
   procedure(deferred_len), pointer, nopass :: ppt
 end type t
contains
 function deferred_len()
   character(len=:), allocatable :: deferred_len
   deferred_len = 'abc'
 end function deferred_len
 subroutine doIt()
   type(t) :: x
   x%ppt => deferred_len
   if ("abc" /= x%ppt()) call abort()
 end subroutine doIt
end module test

use test
call doIt ()
end