<html>
<head>
<base href="https://bugs.llvm.org/">
</head>
<body><table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Bug ID</th>
<td><a class="bz_bug_link
bz_status_NEW "
title="NEW - [Flang] [OpenMP] PARALLEL SECTIONS are unparsed incorrectly"
href="https://bugs.llvm.org/show_bug.cgi?id=50200">50200</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>[Flang] [OpenMP] PARALLEL SECTIONS are unparsed incorrectly
</td>
</tr>
<tr>
<th>Product</th>
<td>flang
</td>
</tr>
<tr>
<th>Version</th>
<td>trunk
</td>
</tr>
<tr>
<th>Hardware</th>
<td>PC
</td>
</tr>
<tr>
<th>OS</th>
<td>All
</td>
</tr>
<tr>
<th>Status</th>
<td>NEW
</td>
</tr>
<tr>
<th>Severity</th>
<td>enhancement
</td>
</tr>
<tr>
<th>Priority</th>
<td>P
</td>
</tr>
<tr>
<th>Component</th>
<td>Frontend
</td>
</tr>
<tr>
<th>Assignee</th>
<td>unassignedbugs@nondot.org
</td>
</tr>
<tr>
<th>Reporter</th>
<td>sscalpone@nvidia.com
</td>
</tr>
<tr>
<th>CC</th>
<td>David.Truby@arm.com, jperier@nvidia.com, kirankumartp@gmail.com, llvm-bugs@lists.llvm.org, sscalpone@nvidia.com
</td>
</tr></table>
<p>
<div>
<pre>See the extra $OMP SECTION in the unparsed output.
% cat b.f90
SUBROUTINE sect1 (x)
INTEGER x(1_4)
!$OMP PARALLEL SECTIONS
DO i=1_4,1_4
x(int(i,kind=8))=0_4
END DO
!$OMP END PARALLEL SECTIONS
END SUBROUTINE
% flang -fopenmp -funparse b.f90 > c.f90
% diff b.f90 c.f90
3a4
<span class="quote">> !$OMP SECTION</span >
% cat c.f90
SUBROUTINE sect1 (x)
INTEGER x(1_4)
!$OMP PARALLEL SECTIONS
!$OMP SECTION
DO i=1_4,1_4
x(int(i,kind=8))=0_4
END DO
!$OMP END PARALLEL SECTIONS
END SUBROUTINE</pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are on the CC list for the bug.</li>
</ul>
</body>
</html>