| ! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s --strict-whitespace --check-prefix=CHECK-E |
| ! RUN: %flang_fc1 -fopenmp -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK-OMP |
| ! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK-NO-OMP |
| |
| !$ thread = OMP_GET_MAX_THREADS() |
| |
| !$omp parallel private(ia) |
| !$ continue |
| !$omp end parallel |
| end |
| |
| !CHECK-E:{{^}}!$ thread = OMP_GET_MAX_THREADS() |
| !CHECK-E:{{^}}!$omp parallel private(ia) |
| !CHECK-E:{{^}}!$ continue |
| !CHECK-E:{{^}}!$omp end parallel |
| |
| !CHECK-OMP:thread=omp_get_max_threads() |
| !CHECK-OMP:!$OMP PARALLEL PRIVATE(ia) |
| !CHECK-OMP: CONTINUE |
| !CHECK-OMP:!$OMP END PARALLEL |
| |
| !CHECK-NO-OMP-NOT:thread= |
| !CHECK-NO-OMP-NOT:!$OMP |
| !CHECK-NO-OMP:END PROGRAM |