mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
26 lines
532 B
Fortran
26 lines
532 B
Fortran
! { dg-do compile }
|
|
!
|
|
! Test the fix for PR83148.
|
|
!
|
|
! Contributed by Neil Carlson <neil.n.carlson@gmail.com>
|
|
!
|
|
module fhypre
|
|
use iso_c_binding, only: c_ptr, c_null_ptr
|
|
use iso_c_binding, only: hypre_obj => c_ptr, hypre_null_obj => c_null_ptr
|
|
private
|
|
public :: hypre_obj, hypre_null_obj
|
|
end module
|
|
|
|
module hypre_hybrid_type
|
|
use fhypre
|
|
type hypre_hybrid
|
|
type(hypre_obj) :: solver = hypre_null_obj
|
|
end type hypre_hybrid
|
|
end module
|
|
|
|
use hypre_hybrid_type
|
|
class(hypre_hybrid), allocatable :: x
|
|
allocate (x)
|
|
end
|
|
|