APAR status
Closed as program error.
Error description
The following testcase produces an internal compiler error: ===== COMPILE COMMAND: xlf90_r test.f90 ===== TESTCASE: $ cat test.f90 subroutine test_xlf_bug(b) real, intent(in) :: b(10) real :: a(10) integer :: i associate (a2 => a, b2 => b) do concurrent (i = 1:10) a2(i) = b2(i) end do end associate end subroutine $ ===== ACTUAL OUTPUT: Internal compiler error at compile time ===== EXPECTED OUTPUT: No internal compiler error at compile time
Local fix
N/A
Problem summary
The problem is we create scope in pass1 for the associate construct as well as any construct inside of it that needs a new scope. In pass2, we skip the associate statement, but we still parse the construct inside of it. Since we restore the scopes that we opened in pass1, the enclosing scope of the inner construct is the associate scope_kind. Since we skip the end associate stmt as well, there is no code to close that scope. So we end up with an internal compiler error when we thought we are at the procedure scope kind.
Problem conclusion
The scope issue has been fixed.
Temporary fix
Comments
APAR Information
APAR number
LI81926
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
2021-03-11
Closed date
2021-03-11
Last modified date
2021-03-11
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
[{"Line of Business":{"code":"LOB57","label":"Power"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSAT4T","label":"XL Fortran for Linux"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"G11"}]
Document Information
Modified date:
12 March 2021