1! { dg-do compile } 2! Test the patch for PR30202 in which the INTENT(OUT) 3! caused an ICE. 4! 5! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> 6! 7program class_scal_p 8 implicit none 9 type scal_p 10 real, allocatable :: b(:) 11 end type scal_p 12 type(scal_p) :: pd 13 call psb_geallv(pd%b) 14contains 15 subroutine psb_geallv(x) 16 real, allocatable, intent(out) :: x(:) 17 end subroutine psb_geallv 18end program class_scal_p 19