| ! { dg-do compile } | |
| ! Test fix for PR56575. | |
| ! | |
| ! Contributed by A Kasahara <latlon90180+gcc_bugzilla@gmail.com> | |
| ! | |
| module lib_container | |
| implicit none | |
| type:: Object | |
| end type Object | |
| type:: Container | |
| class(Object):: v ! { dg-error "must be allocatable or pointer" } | |
| end type Container | |
| contains | |
| subroutine proc(self) | |
| class(Container), intent(inout):: self | |
| end subroutine proc | |
| end module lib_container | |