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