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