Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr67805.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
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