| ! { dg-do compile } |
| ! |
| ! PR 47768: printing a derived-type variable with proc-pointer components |
| ! |
| ! Contributed by Arjen Markus <arjen.markus895@gmail.com> |
| |
| 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" } } |