35 lines · plain
1! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s2! CHECK: call foo(0.)3! CHECK: call foo(1.)4! CHECK: call foo(2.)5! CHECK: call foo(3.)6! CHECK: !$omp parallel do default(none) private(j)7! CHECK: !$omp end parallel do8call foo( &9# 100 "bar.h"10 & 0.)11call foo( &12# 101 "bar.h"13 1.)14call foo( &15# 102 "bar.h"16 & 2. &17 & )18call foo( &19# 103 "bar.h"20 & 3. &21 )22!$omp parallel do &23#ifdef undef24!$omp garbage &25#else26!$omp default(none) &27#endif28!$omp private(j)29 do j=1,10030 end do31!$omp end &32# 104 "bar.h"33!$omp parallel do34end35