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
PR target/83368
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
typebound_proc_21.f90
blob
382f6d8a8fe65751b216694896b1872cf534d2e2
1
! { dg-do compile }
2
!
3
! PR fortran/47455
4
!
5
module
class_t
6
type
::
tx
7
integer
,
dimension
(:),
allocatable
::
i
8
end type
tx
9
type
::
t
10
type
(
tx
),
pointer
::
x
11
contains
12
procedure
::
calc
13
procedure
::
find_x
14
end type
t
15
contains
16
subroutine
calc
(
this
)
17
class
(
t
),
target
::
this
18
this
%
x
=
this
%
find_x
()
19
end subroutine
calc
20
function
find_x
(
this
)
21
class
(
t
),
intent
(
in
) ::
this
22
type
(
tx
),
pointer
::
find_x
23
find_x
=>
null
()
24
end function
find_x
25
end module
class_t