blob: 26df798f410d90008c7f7a5f4d3c42323aae8e43 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { 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
|
