gcc/testsuite/gfortran.dg/proc_ptr_comp_31.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 47768: printing a derived-type variable with proc-pointer components
   4 !
   5 ! Contributed by Arjen Markus <arjen.markus895@gmail.com>
   6
   7 module proc_pointers
   8   implicit none
   9   type :: rectangle
  10     real :: width, height
  11     procedure(real), pointer, nopass :: get_special_area
  12   end type
  13 end module
  14
  15 program test_objects
  16   use proc_pointers
  17   implicit none
  18   type(rectangle) :: rect
  19   write(*,*) rect          ! { dg-error "cannot have procedure pointer components" }
  20 end program