Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr67805.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
20 s = [character([.true.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" } 20 s = [character([.true.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
21 s = [character([.false.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" } 21 s = [character([.false.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
22 s = [character([1.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" } 22 s = [character([1.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
23 s = [character([1d1]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" } 23 s = [character([1d1]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
24 s = [character([(0.,1.)]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" } 24 s = [character([(0.,1.)]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
25 s = [character([null()]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
26 s = [character(null()) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" } 25 s = [character(null()) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
27 call foo(s) 26 call foo(s)
28 end subroutine p 27 end subroutine p
29 28
30 subroutine q 29 subroutine q