LI75478: COLLAPSE CLAUSE NOT RECOGNIZED IN FIXED FORM

May 2010 Update for XL Fortran for Linux, V12.1
January 2012 Update for XL Fortran for Linux, V12.1
January 2011 Update for XL Fortran for Linux, V12.1
June 2011 Update for XL Fortran for Linux, V12.1
XL Fortran for Linux Fix Pack 8 (January 2014 Update) for 12.1

APAR status

• Closed as program error.

Error description

• The compiler does not recognise the collapse clause in
  fixed form. As a result, it produces a compile time error
  message.
  
  ========Compile Command:
  $ xlf_r -qsmp=omp test.f -qsource
  
  ========Test case:
  $cat test.f
        PROGRAM OMPI
        INTEGER I,J,X
  
        X = 0
  
  C$OMP PARALLEL
  C$OMP DO COLLAPSE(2)
        DO I=1,10
        DO J=1,10
        X=X+1
        END DO
        END DO
  C$OMP END PARALLEL
        END
  $
  
  
  ======ACTUAL OUTPUT:
  $ xlf_r -qsmp=omp test.f -qsource
            7 |C$OMP DO COLLAPSE(2)
              .....a...............
  a - "test.f", line 7.5: 1515-019 (S) Syntax is incorrect.
  ** ompi   === End of Compilation 1 ===
  1501-511  Compilation failed for file test.f.
  
  ======Expected output:
  Should compile clean without any error messages.
  

Local fix

• Used '!' instead of 'C' to indicate comments.
  
  eg: The following will compile clean:
  $cat test.f
   program omp
   integer i,j,x
  
   x=0
  
  !$OMP PARALLEL
  !$OMP DO COLLAPSE(2)
               do i=1,10
        do j=1,10
                 x=x+1
               end do
        end do
  !$OMP END PARALLEL
  
   end program
  $
  

Problem summary

• Users who have a program written in fixed form and use OpenMP
  collapse clause are affected by this issue.
  

Problem conclusion

• The compiler has been fixed to recognize the OpenMP collapse
  clause in fixed source form.
  

Temporary fix

Comments

APAR Information

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

  LI75275

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

Fix information

• Fixed component name

  XL FORTRAN RHEL

• Fixed component ID

  5724U8410

Applicable component levels

• RC10 PSY

     UP