Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/pr71014.f90 @ 122:fb3d53c41846
do not expand code segment
author | mir3636 |
---|---|
date | Thu, 22 Mar 2018 17:37:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! PR fortran/71014 ! { dg-do run } ! { dg-additional-options "-O0" } program pr71014 implicit none integer :: i, j integer, parameter :: t = 100*101/2 integer :: s(16) s(:) = 0 !$omp parallel do do j = 1, 16 associate (k => j) do i = 1, 100 s(j) = s(j) + i end do end associate end do if (any(s /= t)) call abort end program pr71014