Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/namelist_args.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
9 integer, intent(in) :: k1, k2, k3 9 integer, intent(in) :: k1, k2, k3
10 j = 25 * k 10 j = 25 * k
11 end function 11 end function
12 program pr50555 12 program pr50555
13 namelist /i/ j 13 namelist /i/ j
14 call g(k,l,i) ! { dg-error "can not be an argument" } 14 call g(k,l,i) ! { dg-error "cannot be an argument" }
15 f(k,l,i)=0 ! { dg-error "can not be an argument" } 15 f(k,l,i)=0 ! { dg-error "cannot be an argument" }
16 h = j(k,l,i) ! { dg-error "can not be an argument" } 16 h = j(k,l,i) ! { dg-error "cannot be an argument" }
17 end program 17 end program
18 ! Note: -std=gnu needed because line 15 function statement is obsolescent 18 ! Note: -std=gnu needed because line 15 function statement is obsolescent