Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr88934.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-O -ftree-vectorize" } ! { dg-additional-options "-mvsx" { target powerpc*-*-* } } integer, parameter :: a=3 integer , dimension(a,a) :: b logical, dimension(a,a) :: c do i=0,1 b = ltoi(c) do j=0,if if (anymatmul(b) /= 0) then end if end do end do contains elemental function ltoi(d) logical, intent(in) :: d if (d) then ltoi = 1 else ltoi = 0 end if end end