| ! 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 |