3 ! PR39850: Too strict checking for procedures as actual argument
5 ! Original test case by Tobias Burnus <burnus@gcc.gnu.org>
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
14 external func1,func2,func3,func4 ! subroutine or implicitly typed real function
18 call sub2(func3) ! { dg-error "is not a subroutine" }
20 call sub1(func4) ! { dg-error "is not a function" }