Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr56015.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 (2018-10-24)
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
9 p(:) = (0.0d0, 1.0d0) * p(:) 9 p(:) = (0.0d0, 1.0d0) * p(:)
10 call foo (p) 10 call foo (p)
11 contains 11 contains
12 subroutine foo (p) 12 subroutine foo (p)
13 complex*16 p(10) 13 complex*16 p(10)
14 if (any (p .ne. (-0.2d0, 0.1d0))) call abort 14 if (any (p .ne. (-0.2d0, 0.1d0))) STOP 1
15 end subroutine 15 end subroutine
16 end program pr56015 16 end program pr56015