This is an archive of the discontinued LLVM Phabricator instance.

Show First 20 Lines • Show All 1,897 Lines • ▼ Show 20 Lines	#include "llvm/Frontend/OpenACC/ACC.cpp.inc"
void Unparse(const OpenACCCombinedConstruct &x) {		void Unparse(const OpenACCCombinedConstruct &x) {
BeginOpenACC();		BeginOpenACC();
Word("!$ACC ");		Word("!$ACC ");
Walk(std::get<AccBeginCombinedDirective>(x.t));		Walk(std::get<AccBeginCombinedDirective>(x.t));
Put("\n");		Put("\n");
EndOpenACC();		EndOpenACC();
Walk(std::get<std::optional<DoConstruct>>(x.t));		Walk(std::get<std::optional<DoConstruct>>(x.t));
BeginOpenACC();		BeginOpenACC();
Walk("!$ACC END ", std::get<std::optional<DoConstruct>>(x.t));		Walk("!$ACC END ", std::get<std::optional<AccEndCombinedDirective>>(x.t),
Put("\n");		"\n");
EndOpenACC();		EndOpenACC();
}		}
void Unparse(const OpenACCRoutineConstruct &x) {		void Unparse(const OpenACCRoutineConstruct &x) {
BeginOpenACC();		BeginOpenACC();
Word("!$ACC ROUTINE");		Word("!$ACC ROUTINE");
Walk("(", std::get<std::optional<Name>>(x.t), ")");		Walk("(", std::get<std::optional<Name>>(x.t), ")");
Walk(std::get<AccClauseList>(x.t));		Walk(std::get<AccClauseList>(x.t));
Put("\n");		Put("\n");
▲ Show 20 Lines • Show All 845 Lines • Show Last 20 Lines

flang/test/Parser/acc-unparse.f90

				! RUN: %f18 -fopenacc -funparse %s \| FileCheck %s

				! Test unparse does not crash with OpenACC directives.

				! Test bug 47659
				program bug47659
				integer :: i, j
				label1: do i = 1, 10
				!$acc parallel loop
				do j = 1, 10
				if (j == 2) then
				exit label1
				end if
				end do
				end do label1
				end program

				!CHECK-LABEL: PROGRAM bug47659
				!CHECK: !$ACC PARALLEL LOOP