1! RUN: %flang_fc1 -fopenmp -E %s 2>&1 | FileCheck %s 2! 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 do 8call 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 undef 24!$omp garbage & 25#else 26!$omp default(none) & 27#endif 28!$omp private(j) 29 do j=1,100 30 end do 31!$omp end & 32# 104 "bar.h" 33!$omp parallel do 34end 35