LI81926: INTERNAL COMPILER ERROR IN XLFENTRY DUE TO SCOPE ISSUES

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 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