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
RISC-V: Regenerate opt urls.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
proc_ptr_23.f90
blob
20f4f60dbb63ef5ba179a5c65fedf04776401967
1
! { dg-do run }
2
!
3
! PR 41106: [F03] Procedure Pointers with CHARACTER results
4
!
5
! Contributed by Janus Weil <janus@gcc.gnu.org>
6
7
character
(
len
=
5
) ::
str
8
procedure
(
character
(
len
=
5
)),
pointer
::
pp
9
pp
=>
abc
10
print
*,
pp
()
11
str
=
pp
()
12
if
(
str
/=
'abcde'
)
STOP
1
13
contains
14
function
abc
()
15
character
(
len
=
5
) ::
abc
16
abc
=
'abcde'
17
end function
abc
18
end
19