repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
[C++ PATCH] Deprecate -ffriend-injection
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
class_56.f90
blob
26df798f410d90008c7f7a5f4d3c42323aae8e43
1
! { dg-do compile }
2
! Test fix for PR56575.
3
!
4
! Contributed by A Kasahara <latlon90180+gcc_bugzilla@gmail.com>
5
!
6
module
lib_container
7
implicit none
8
9
type
::
Object
10
end type
Object
11
12
type
::
Container
13
class
(
Object
)::
v
! { dg-error "must be allocatable or pointer" }
14
end type
Container
15
16
contains
17
18
subroutine
proc
(
self
)
19
class
(
Container
),
intent
(
inout
)::
self
20
end subroutine
proc
21
end module
lib_container
22