Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/proc_ptr_comp_5.f90 @ 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 } ! ! PR39630: Fortran 2003: Procedure pointer components. ! ! Nested types / double component references. ! ! Contributed by Janus Weil <janus@gcc.gnu.org> abstract interface subroutine as end subroutine integer function af() end function end interface type :: t1 procedure(as), pointer, nopass :: s procedure(af), pointer, nopass :: f end type type :: t2 type(t1) :: c end type type(t2) :: x integer :: j = 0 x%c%s => is call x%c%s if (j/=5) call abort x%c%f => if j=x%c%f() if (j/=42) call abort contains subroutine is j = 5 end subroutine integer function if() if = 42 end function end