Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_1.f03 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! PR 40940: CLASS statement ! ! Contributed by Janus Weil <janus@gcc.gnu.org> implicit none type t integer :: comp class(t),pointer :: c2 end type class(t),pointer :: c1 allocate(c1) c1%comp = 5 c1%c2 => c1 print *,c1%comp call sub(c1) if (c1%comp/=5) call abort() deallocate(c1) contains subroutine sub (c3) class(t) :: c3 print *,c3%comp end subroutine end