|
16 | 16 | #include "flang/Lower/FIRBuilder.h"
|
17 | 17 | #include "flang/Lower/PFTBuilder.h"
|
18 | 18 | #include "flang/Lower/Support/BoxValue.h"
|
| 19 | +#include "flang/Lower/Todo.h" |
19 | 20 | #include "flang/Parser/parse-tree.h"
|
20 | 21 | #include "flang/Semantics/tools.h"
|
21 | 22 | #include "mlir/Dialect/OpenACC/OpenACC.h"
|
22 | 23 | #include "llvm/Frontend/OpenACC/ACC.h.inc"
|
23 | 24 |
|
24 |
| -#define TODO() llvm_unreachable("not yet implemented") |
25 |
| - |
26 | 25 | static const Fortran::parser::Name *
|
27 | 26 | getDesignatorNameIfDataRef(const Fortran::parser::Designator &designator) {
|
28 | 27 | const auto *dataRef{std::get_if<Fortran::parser::DataRef>(&designator.u)};
|
@@ -528,22 +527,28 @@ void Fortran::lower::genOpenACCConstruct(
|
528 | 527 | genACC(converter, eval, blockConstruct);
|
529 | 528 | },
|
530 | 529 | [&](const Fortran::parser::OpenACCCombinedConstruct
|
531 |
| - &combinedConstruct) { TODO(); }, |
| 530 | + &combinedConstruct) { |
| 531 | + TODO("OpenACC Combined construct not lowered yet!"); |
| 532 | + }, |
532 | 533 | [&](const Fortran::parser::OpenACCLoopConstruct &loopConstruct) {
|
533 | 534 | genACC(converter, eval, loopConstruct);
|
534 | 535 | },
|
535 | 536 | [&](const Fortran::parser::OpenACCStandaloneConstruct
|
536 |
| - &standaloneConstruct) { TODO(); }, |
| 537 | + &standaloneConstruct) { |
| 538 | + TODO("OpenACC Standalone construct not lowered yet!"); |
| 539 | + }, |
537 | 540 | [&](const Fortran::parser::OpenACCRoutineConstruct
|
538 |
| - &routineConstruct) { TODO(); }, |
| 541 | + &routineConstruct) { |
| 542 | + TODO("OpenACC Routine construct not lowered yet!"); |
| 543 | + }, |
539 | 544 | [&](const Fortran::parser::OpenACCCacheConstruct &cacheConstruct) {
|
540 |
| - TODO(); |
| 545 | + TODO("OpenACC Cache construct not lowered yet!"); |
541 | 546 | },
|
542 | 547 | [&](const Fortran::parser::OpenACCWaitConstruct &waitConstruct) {
|
543 |
| - TODO(); |
| 548 | + TODO("OpenACC Wait construct not lowered yet!"); |
544 | 549 | },
|
545 | 550 | [&](const Fortran::parser::OpenACCAtomicConstruct &atomicConstruct) {
|
546 |
| - TODO(); |
| 551 | + TODO("OpenACC Atomic construct not lowered yet!"); |
547 | 552 | },
|
548 | 553 | },
|
549 | 554 | accConstruct.u);
|
|
0 commit comments