summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/alloc_comp_basics_3.f90
blob: 9140cd2ac4901b3ad66453dcff191f5c924f1bef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
! { 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