Mercurial > hg > CbC > CbC_gcc

comparison 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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 !
3 ! PR 36426
4 !
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
6
7 abstract interface
8 function foo(x)
9 character(len=*) :: x
10 character(len=len(x)) :: foo
11 end function foo
12 end interface
13 procedure(foo) :: bar
14
15 abstract interface
16 character function abs_fun()
17 end function
18 end interface
19 procedure(abs_fun):: x
20
21 character(len=20) :: str
22 str = bar("Hello")
23 end