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