25 lines · plain
1! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s2 program main3! CHECK: k01=1+4! CHECK: !$ &15 k01=1+6!$ &17 8! CHECK: !$ k02=29! CHECK: 310! CHECK: !$ &411!$ k02=212 +313!$ +414 15! CHECK: !$omp parallel private(k01)16!$omp parallel17!$omp+ private(k01)18!$omp end parallel19 20! CHECK-NOT: comment21!$omp parallel22!$acc+comment23!$omp end parallel24 end25