Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/proc_ptr_23.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 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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') call abort()
13 contains
14 function abc()
15 character(len=5) :: abc
16 abc = 'abcde'
17 end function abc
18 end
19