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
coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_comp_5.f90
blob
216cb4e9b3a4f91a215c43b95a510dedf052a6e3
1
! { dg-do run }
2
!
3
! PR39630: Fortran 2003: Procedure pointer components.
4
!
5
! Nested types / double component references.
6
!
7
! Contributed by Janus Weil <janus@gcc.gnu.org>
8
9
abstract
interface
10
subroutine
as
11
end subroutine
12
integer function
af
()
13
end function
14
end interface
15
16
type
::
t1
17
procedure
(
as
),
pointer
,
nopass
::
s
18
procedure
(
af
),
pointer
,
nopass
::
f
19
end type
20
21
type
::
t2
22
type
(
t1
) ::
c
23
end type
24
25
type
(
t2
) ::
x
26
integer
::
j
=
0
27
28
x
%
c
%
s
=>
is
29
call
x
%
c
%
s
30
if
(
j
/=
5
)
call
abort
31
32
x
%
c
%
f
=>
if
33
j
=
x
%
c
%
f
()
34
if
(
j
/=
42
)
call
abort
35
36
contains
37
38
subroutine
is
39
j
=
5
40
end subroutine
41
42
integer function if
()
43
if
=
42
44
end function
45
46
end
47