! { dg-do compile } ! Test the patch for PR30202 in which the INTENT(OUT) ! caused an ICE. ! ! Contributed by Salvatore Filippone ! program class_scal_p implicit none type scal_p real, allocatable :: b(:) end type scal_p type(scal_p) :: pd call psb_geallv(pd%b) contains subroutine psb_geallv(x) real, allocatable, intent(out) :: x(:) end subroutine psb_geallv end program class_scal_p