Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dummy_procedure_11.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 60507: Passing function call into procedure argument not caught ! ! Contributed by Vladimir Fuka <vladimir.fuka@gmail.com> type :: t procedure(g), pointer, nopass :: ppc end type procedure(g), pointer :: pp type(t)::x print *, f(g) print *, f(g()) ! { dg-error "Expected a procedure for argument" } pp => g print *, f(pp) print *, f(pp()) ! { dg-error "Expected a procedure for argument" } x%ppc => g print *, f(x%ppc) print *, f(x%ppc()) ! { dg-error "Expected a procedure for argument" } contains real function f(fun) procedure(g) :: fun f = fun() end function real function g() g = 1. end function end