Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/select_type_16.f03 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 45439: [OOP] SELECT TYPE bogus complaint about INTENT ! ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> module d_base_mat_mod implicit none type :: d_base_sparse_mat contains procedure, pass(a) :: mv_to_coo => d_base_mv_to_coo end type d_base_sparse_mat interface subroutine d_base_mv_to_coo(a) import d_base_sparse_mat class(d_base_sparse_mat), intent(inout) :: a end subroutine d_base_mv_to_coo end interface type :: d_sparse_mat class(d_base_sparse_mat), allocatable :: a end type d_sparse_mat contains subroutine bug21(ax) type(d_sparse_mat), intent(inout) :: ax select type(aa=> ax%a) class default call aa%mv_to_coo() end select end subroutine bug21 end module d_base_mat_mod