APAR status
Closed as program error.
Error description
The following reduced version of a test case demonstrates the code constructs that lead to a compiler abend at compile time. ======COMPILE COMMAND: xlf90_r -qpreprocess -DVLEN=1 -D_OFFLOAD -qoffload -qsmp=omp test.f90 ======TESTCASE: !$omp target teams distribute parallel do private(ib, j, k, i) & !$omp& private(loc1, loc3, loc4, loc5, loc6, loc7) & !$omp& private(loc8, inpt1_l1, inpt1_l2, inpt1_l3, temp_loc9, temp_loc10) & !$omp& collapse(3) do k = 0, mz do j = 0, my do ib = 0, mx, 1 ... !end do !end do end do !$omp end target teams distribute parallel do End Subroutine compute_test_v2 =======ACTUAL OUTPUT: "src/test.f90", line 331.1: 1517-005 (U) Error in SEMBLK. Please contact your Service Representative. For more information visit: http://www.ibm.com/support/docview.wss?uid=swg21110810 ========EXPECTED OUTPUT: Should produce the following errors at compile time: "src/test.f90", line 366.4: 1511-001 (S) Program or subprogram contains DO-loops or DO WHILE-loops that are not closed prior to the end of the routine or prior to the start of internal routines. "src/test.f90", line 367.6: 1511-001 (S) Program or subprogram contains DO-loops or DO WHILE-loops that are not closed prior to the end of the routine or prior to the start of internal routines.
Local fix
N/A
Problem summary
USERS AFFECTED: Users who have code similar to the code mentioned in the sample test case of this APAR are affected by this issue PROBLEM DESCRIPTION: The compiler was returning before an if statement was being processed properly; leading to the error.
Problem conclusion
The compiler has been fixed so that it returns after the if statement was properly processed.
Temporary fix
Comments
APAR Information
APAR number
LI81132
Reported component name
XL FORTRAN LINU
Reported component ID
5725C7510
Reported release
G11
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2019-11-28
Closed date
2019-11-28
Last modified date
2019-11-28
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Fixed component name
XL FORTRAN LINU
Fixed component ID
5725C7510
Applicable component levels
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSAT4T","label":"XL Fortran for Linux"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"G11","Edition":"","Line of Business":{"code":"LOB57","label":"Power"}}]
Document Information
Modified date:
28 November 2019