IV31621: INTERNAL COMPILER ERROR IN ASTI

November 2012 PTF for XL Fortran for AIX, V14.1
March 2013 PTF for XL Fortran for AIX, V14.1

APAR status

• Closed as program error.

Error description

• When compiling the provided test case, the compiler produces an
  Internal Compiler Error.
  
  $cat test.f90
  
        use, intrinsic :: iso_c_binding
  
        type(c_ptr) :: cpointer
        integer, pointer :: farray(:,:)
        integer :: arr(2)
  
        call c_f_pointer(cpointer, farray, int(arr(1:2), 8))
  !      call c_f_pointer(cpointer, farray, arr(1:2))
  
        end
  
  
  =====Compiler Command:
  mpixlf2003_r -d -c FreeIPC.f90
  
  
  ===== ACTUAL OUTPUT:
  mpixlf2003_r -d -c FreeIPC.f90
  ** fipc_module   === End of Compilation 1 ===
  1585-100  Internal compiler error -- please contact your service
  representative. For more information visit:
  http://www.ibm.com/support/docview.wss?uid=swg21110810
  1501-511  Compilation failed for file test.f90.
  
  
  ===== EXPECTED OUTPUT:
  Should not produce an internal compiler error.
  

Local fix

• Replace
     call c_f_pointer(cpointer, farray, int(arr(1:2),8))
  
  with
     call c_f_pointer(cpointer, farray, arr(1:2))
  

Problem summary

• USERS AFFECTED:
  Users writing C-interoperable Fortran code and call C_F_POINTER
  and convert the type of the shape argument are potentially
  affected by this issue.
  
  PROBLEM DESCRIPTION:
  The compiler abends when converting the type of the shape
  argument to C_F_POINTER intrinsic.
  

Problem conclusion

• The fix in the compiler is to handle conversion operations on
  SHAPE argument when transforming a call to C_F_POINTER.
  

Temporary fix

Comments

APAR Information

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

  LI77020

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

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5725C7400

Applicable component levels

• RE10 PSY U856076

     UP C