19 lines
433 B
Fortran
19 lines
433 B
Fortran
! { dg-do compile }
|
|
! Test the patch for PR30202 in which the INTENT(OUT)
|
|
! caused an ICE.
|
|
!
|
|
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
|
|
!
|
|
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
|