mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
23 lines
423 B
Fortran
23 lines
423 B
Fortran
! { 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
|
|
|