2 ! { dg-options -std=gnu }
3 ! PR50555 synonymous namelist/statement function dummy argument not allowed
4 subroutine g(k1, k2, k3)
5 integer, intent(in) :: k1, k2, k3
9 integer, intent(in) :: k1, k2, k3
14 call g(k,l,i) ! { dg-error "can not be an argument" }
15 f(k,l,i)=0 ! { dg-error "can not be an argument" }
16 h = j(k,l,i) ! { dg-error "can not be an argument" }
18 ! Note: -std=gnu needed because line 15 function statement is obsolescent