1! { dg-do compile }
2! { dg-options -std=gnu }
3! PR50555 synonymous namelist/statement function dummy argument not allowed
4subroutine g(k1, k2, k3)
5  integer, intent(in) :: k1, k2, k3
6  print *, k
7end subroutine
8function j(k1, k2, k3)
9  integer, intent(in) :: k1, k2, k3
10  j = 25 * k
11end function
12program pr50555
13  namelist /i/ j
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" }
17end program
18! Note: -std=gnu needed because line 15 function statement is obsolescent
19