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 7module proc_pointers 8 implicit none 9 type :: rectangle 10 real :: width, height 11 procedure(real), pointer, nopass :: get_special_area 12 end type 13end module 14 15program test_objects 16 use proc_pointers 17 implicit none 18 type(rectangle) :: rect 19 write(*,*) rect ! { dg-error "cannot have procedure pointer components" } 20end program 21