Subversion Repositories openrisc

! { dg-do compile }

!

! PR 47768: printing a derived-type variable with proc-pointer components

!

! Contributed by Arjen Markus 

module proc_pointers

  implicit none

  type :: rectangle

    real :: width, height

    procedure(real), pointer, nopass :: get_special_area

  end type

end module

program test_objects

  use proc_pointers

  implicit none

  type(rectangle) :: rect

  write(*,*) rect          ! { dg-error "cannot have procedure pointer components" }

end program

! { dg-final { cleanup-modules "proc_pointers" } }