25 lines · plain
1! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s --strict-whitespace --check-prefix=CHECK-E2! RUN: %flang_fc1 -fopenmp -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK-OMP3! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK-NO-OMP4 5!$ thread = OMP_GET_MAX_THREADS()6 7!$omp parallel private(ia)8!$ continue9!$omp end parallel10 end11 12!CHECK-E:{{^}}!$ thread = OMP_GET_MAX_THREADS()13!CHECK-E:{{^}}!$omp parallel private(ia)14!CHECK-E:{{^}}!$ continue15!CHECK-E:{{^}}!$omp end parallel16 17!CHECK-OMP:thread=omp_get_max_threads()18!CHECK-OMP:!$OMP PARALLEL PRIVATE(ia)19!CHECK-OMP: CONTINUE20!CHECK-OMP:!$OMP END PARALLEL 21 22!CHECK-NO-OMP-NOT:thread=23!CHECK-NO-OMP-NOT:!$OMP24!CHECK-NO-OMP:END PROGRAM25