File tree Expand file tree Collapse file tree 2 files changed +16
-6
lines changed Expand file tree Collapse file tree 2 files changed +16
-6
lines changed Original file line number Diff line number Diff line change @@ -24,13 +24,23 @@ void Fortran::lower::genOMP(
24
24
std::get<Fortran::parser::OmpSimpleStandaloneDirective>(
25
25
simpleStandaloneConstruct.t );
26
26
switch (directive.v ) {
27
- default :
28
- TODO ();
29
- case parser::OmpSimpleStandaloneDirective::Directive::Barrier: {
27
+
28
+ case parser::OmpSimpleStandaloneDirective::Directive::Barrier:
30
29
absConv.getFirOpBuilder ().create <mlir::omp::BarrierOp>(
31
30
absConv.getCurrentLocation ());
32
31
break ;
33
- }
32
+ case parser::OmpSimpleStandaloneDirective::Directive::Taskwait:
33
+ TODO ();
34
+ case parser::OmpSimpleStandaloneDirective::Directive::Taskyield:
35
+ TODO ();
36
+ case parser::OmpSimpleStandaloneDirective::Directive::TargetEnterData:
37
+ TODO ();
38
+ case parser::OmpSimpleStandaloneDirective::Directive::TargetExitData:
39
+ TODO ();
40
+ case parser::OmpSimpleStandaloneDirective::Directive::TargetUpdate:
41
+ TODO ();
42
+ case parser::OmpSimpleStandaloneDirective::Directive::Ordered:
43
+ TODO ();
34
44
}
35
45
}
36
46
Original file line number Diff line number Diff line change 4
4
! RUN: FileCheck %s --check-prefix=FIRDialect
5
5
! RUN: bbc -fopenmp -emit-llvm %s -o - | \
6
6
! RUN: FileCheck %s --check-prefix=LLVMIRDialect
7
- ! RUN: bbc -fopenmp -emit-llvm %s -o - | \
8
- ! RUN: mlir-translate -mlir-to-llvmir - | FileCheck %s --check-prefix=LLVMIR
7
+ ! RUN: bbc -fopenmp -emit-fir %s -o - | \
8
+ ! RUN: tco | FileCheck %s --check-prefix=LLVMIR
9
9
10
10
program barrier
11
11
You can’t perform that action at this time.
0 commit comments