LI81132: INTERNAL COMPILER ERROR IN SEMBLK

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 is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  IJ21771

Fix information

• Fixed component name

  XL FORTRAN LINU

• Fixed component ID

  5725C7510

Applicable component levels