gcc/testsuite/gfortran.dg/proc_ptr_comp_25.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 46060: [F03] procedure pointer component referenced without argument list
   4 !
   5 ! Contributed by Stephen J. Bespalko <sjbespa@comcast.net>
   6
   7 implicit none
   8
   9 abstract interface
  10   function name_func (ivar) result (res)
  11     integer, intent(in) :: ivar
  12     character(len=8) :: res
  13   end function name_func
  14 end interface
  15
  16 type var_type
  17   procedure(name_func), nopass, pointer :: name
  18 end type var_type
  19
  20 type(var_type) :: vars
  21 character(len=8) name
  22
  23 name = vars%name   ! { dg-error "requires an argument list" }
  24
  25 end