gcc/testsuite/gfortran.dg/namelist_args.f90

   1 ! { dg-do compile }
   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
   6   print *, k
   7 end subroutine
   8 function j(k1, k2, k3)
   9   integer, intent(in) :: k1, k2, k3
  10   j = 25 * k
  11 end function
  12 program 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" }
  17 end program
  18 ! Note: -std=gnu needed because line 15 function statement is obsolescent