flang/test/Driver/bbc-openmp-version-macro.f90

   1 ! Test predefined _OPENMP macro which denotes OpenMP version
   2
   3 ! RUN: bbc -fopenmp -o -  %s | FileCheck %s --check-prefix=DEFAULT-OPENMP-VERSION
   4 ! RUN: bbc -fopenmp -fopenmp-version=11 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-11
   5 ! RUN: bbc -fopenmp -fopenmp-version=11 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-11
   6 ! RUN: bbc -fopenmp -fopenmp-version=20 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-20
   7 ! RUN: bbc -fopenmp -fopenmp-version=25 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-25
   8 ! RUN: bbc -fopenmp -fopenmp-version=30 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-30
   9 ! RUN: bbc -fopenmp -fopenmp-version=31 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-31
  10 ! RUN: bbc -fopenmp -fopenmp-version=40 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-40
  11 ! RUN: bbc -fopenmp -fopenmp-version=45 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-45
  12 ! RUN: bbc -fopenmp -fopenmp-version=50 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-50
  13 ! RUN: bbc -fopenmp -fopenmp-version=51 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-51
  14 ! RUN: bbc -fopenmp -fopenmp-version=52 -o - %s | FileCheck %s --check-prefix=OPENMP-VERSION-52
  15
  16 ! DEFAULT-OPENMP-VERSION: {{.*}} = arith.constant 199911 : i32
  17 ! OPENMP-VERSION-11: {{.*}} = arith.constant 199911 : i32
  18 ! OPENMP-VERSION-20: {{.*}} = arith.constant 200011 : i32
  19 ! OPENMP-VERSION-25: {{.*}} = arith.constant 200505 : i32
  20 ! OPENMP-VERSION-30: {{.*}} = arith.constant 200805 : i32
  21 ! OPENMP-VERSION-31: {{.*}} = arith.constant 201107 : i32
  22 ! OPENMP-VERSION-40: {{.*}} = arith.constant 201307 : i32
  23 ! OPENMP-VERSION-45: {{.*}} = arith.constant 201511 : i32
  24 ! OPENMP-VERSION-50: {{.*}} = arith.constant 201811 : i32
  25 ! OPENMP-VERSION-51: {{.*}} = arith.constant 202011 : i32
  26 ! OPENMP-VERSION-52: {{.*}} = arith.constant 202111 : i32
  27
  28 #if _OPENMP
  29   integer :: var1 = _OPENMP
  30 #endif
  31 end program
  32