blob: fce30eac197dacdf7459f9c99ec1485e5780e455 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { 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
|
