gcc/testsuite/gfortran.dg/alloc_comp_basics_3.f90

   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 !
   7 program 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)
  14 contains
  15   subroutine psb_geallv(x)
  16     real, allocatable, intent(out) :: x(:)
  17   end subroutine psb_geallv
  18 end program class_scal_p