gcc/testsuite/gfortran.dg/class_68.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR83148.
   4 !
   5 ! Contributed by Neil Carlson  <neil.n.carlson@gmail.com>
   6 !
   7 module fhypre
   8   use iso_c_binding, only: c_ptr, c_null_ptr
   9   use iso_c_binding, only: hypre_obj => c_ptr, hypre_null_obj => c_null_ptr
  10   private
  11   public :: hypre_obj, hypre_null_obj
  12 end module
  13
  14 module hypre_hybrid_type
  15   use fhypre
  16   type hypre_hybrid
  17     type(hypre_obj) :: solver = hypre_null_obj
  18   end type hypre_hybrid
  19 end module
  20
  21   use hypre_hybrid_type
  22   class(hypre_hybrid), allocatable :: x
  23   allocate (x)
  24 end
  25