view libgomp/testsuite/libgomp.fortran/pr28390.f @ 122:fb3d53c41846

do not expand code segment
author mir3636
date Thu, 22 Mar 2018 17:37:58 +0900
parents a06113de4d67
children 84e7813d76e9
line wrap: on
line source

! PR fortran/28390
      program pr28390
      integer i
!$omp parallel do lastprivate(i)
      do i=1,100
      end do
      if (i.ne.101) call abort
      end