Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_68.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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