Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/proc_decl_19.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 !
kono
parents:
diff changeset
3 ! PR 36426
kono
parents:
diff changeset
4 !
kono
parents:
diff changeset
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 abstract interface
kono
parents:
diff changeset
8 function foo(x)
kono
parents:
diff changeset
9 character(len=*) :: x
kono
parents:
diff changeset
10 character(len=len(x)) :: foo
kono
parents:
diff changeset
11 end function foo
kono
parents:
diff changeset
12 end interface
kono
parents:
diff changeset
13 procedure(foo) :: bar
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 abstract interface
kono
parents:
diff changeset
16 character function abs_fun()
kono
parents:
diff changeset
17 end function
kono
parents:
diff changeset
18 end interface
kono
parents:
diff changeset
19 procedure(abs_fun):: x
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 character(len=20) :: str
kono
parents:
diff changeset
22 str = bar("Hello")
kono
parents:
diff changeset
23 end