! RUN: %flang_fc1 -fopenmp -E %s 2>&1 | FileCheck %s
! CHECK: call foo(0.)
! CHECK: call foo(1.)
! CHECK: call foo(2.)
! CHECK: call foo(3.)
! CHECK: !$omp parallel do default(none) private(j)
! CHECK: !$omp end parallel do
call foo( &
# 100 "bar.h"
& 0.)
call foo( &
# 101 "bar.h"
1.)
call foo( &
# 102 "bar.h"
& 2. &
& )
call foo( &
# 103 "bar.h"
& 3. &
)
!$omp parallel do &
#ifdef undef
!$omp garbage &
#else
!$omp default(none) &
#endif
!$omp private(j)
do j=1,100
end do
!$omp end &
# 104 "bar.h"
!$omp parallel do
end