alloc_comp_basics_3.f90

来自「用于进行gcc测试」· F90 代码 · 共 19 行

! { dg-do compile }
! Test the patch for PR30202 in which the INTENT(OUT)
! caused an ICE.
!
! Contributed by Salvatore Filippone <[e-mail]>
!
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