Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_26.f03 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! ! PR 44065: [OOP] Undefined reference to vtab$... ! ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> module s_mat_mod implicit none type :: s_sparse_mat end type contains subroutine s_set_triangle(a) class(s_sparse_mat), intent(inout) :: a end subroutine end module module s_tester implicit none contains subroutine s_ussv_2 use s_mat_mod type(s_sparse_mat) :: a call s_set_triangle(a) end subroutine end module end