Fixes are available
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 number
LI75275
Reported component name
XL FORTRAN SLES
Reported component ID
5724U8400
Reported release
C10
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-01-11
Closed date
2010-04-27
Last modified date
2010-04-27
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 SLES
Fixed component ID
5724U8400
Applicable component levels
RC10 PSY
UP
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSB259","label":"XL Fortran Advanced Edition for Linux"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"C.1","Line of Business":{"code":"LOB57","label":"Power"}}]
Document Information
Modified date:
24 February 2022