Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/proc_ptr_comp_25.f90 @ 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 46060: [F03] procedure pointer component referenced without argument list ! ! Contributed by Stephen J. Bespalko <sjbespa@comcast.net> implicit none abstract interface function name_func (ivar) result (res) integer, intent(in) :: ivar character(len=8) :: res end function name_func end interface type var_type procedure(name_func), nopass, pointer :: name end type var_type type(var_type) :: vars character(len=8) name name = vars%name ! { dg-error "requires an argument list" } end