Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/proc_ptr_result_7.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! PR 54285: [F03] Calling a PPC with proc-ptr result ! ! Contributed by Janus Weil <janus@gcc.gnu.org> type :: t procedure(a), pointer, nopass :: p end type type(t) :: x ! We cannot use "iabs" directly as it is elemental. abstract interface pure integer function interf_iabs(x) integer, intent(in) :: x end function interf_iabs end interface procedure(interf_iabs), pointer :: pp x%p => a pp => x%p() if (pp(-3) /= 3) call abort contains function a() result (b) procedure(interf_iabs), pointer :: b b => iabs end function end