Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/dummy_procedure_11.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
3 ! PR 60507: Passing function call into procedure argument not caught 3 ! PR 60507: Passing function call into procedure argument not caught
4 ! 4 !
5 ! Contributed by Vladimir Fuka <vladimir.fuka@gmail.com> 5 ! Contributed by Vladimir Fuka <vladimir.fuka@gmail.com>
6 6
7 type :: t 7 type :: t
8 procedure(g), pointer, nopass :: ppc => g 8 procedure(g), pointer, nopass :: ppc
9 end type 9 end type
10 10
11 procedure(g), pointer :: pp => g 11 procedure(g), pointer :: pp
12 type(t)::x 12 type(t)::x
13 13
14 print *, f(g) 14 print *, f(g)
15 print *, f(g()) ! { dg-error "Expected a procedure for argument" } 15 print *, f(g()) ! { dg-error "Expected a procedure for argument" }
16 pp => g
16 print *, f(pp) 17 print *, f(pp)
17 print *, f(pp()) ! { dg-error "Expected a procedure for argument" } 18 print *, f(pp()) ! { dg-error "Expected a procedure for argument" }
19 x%ppc => g
18 print *, f(x%ppc) 20 print *, f(x%ppc)
19 print *, f(x%ppc()) ! { dg-error "Expected a procedure for argument" } 21 print *, f(x%ppc()) ! { dg-error "Expected a procedure for argument" }
20 22
21 contains 23 contains
22 24