flang/test/Preprocessing/line-in-contin.F90

   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
   8 call foo( &
   9 # 100 "bar.h"
  10          & 0.)
  11 call foo( &
  12 # 101 "bar.h"
  13          1.)
  14 call foo( &
  15 # 102 "bar.h"
  16          & 2. &
  17     & )
  18 call 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
  34 end