LI75494: DATA POINTER ASSIGNMENT ERROR

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

• Issue when trying to generate an internal routine for the
  assignment of the extended type, in this case, the type's
  generic binding, assignment(=).
  
  ===== TESTCASE:
  $ cat test.f03
  module base_vectors
  
  type :: base_vector
  contains
    procedure, pass :: assign
    generic :: assignment(=) => assign
  end type base_vector
  
  type, extends(base_vector) :: toy_field
    real, pointer :: x(:)
  end type toy_field
  
  contains
  
  subroutine assign(self,other)
  class(base_vector), intent(inout) :: self
  class(base_vector), intent(in)    :: other
  end subroutine assign
  
  end module base_vectors
  
  end
  $
  
  ===== ACTUAL OUTPUT:
  $xlf -c test.f03
  "test.f03", 1515-041 (S) Pointer and target must have the same
  rank in the pointer assignment statement.
  "test.f03", 1515-041 (S) Pointer and target must have the same
  rank in the pointer assignment statement.
  ** base_vectors   === End of Compilation 1 ===
  ** _main   === End of Compilation 2 ===
  1501-511  Compilation failed for file test.f03.
  $
  
  ===== EXPECTED OUTPUT:
  Should compile clean.
  

Local fix

• n/a
  

Problem summary

• USER AFFECTED:
  Users who define a derived type which is extended
  from a base type containing a type bound generic assignment are
  affected by this issue.
  
  PROBLEM DESCRIPTION:
  Compilation failed and error messages were issued on
  data pointer assignment for the user's code.
  

Problem conclusion

• The compiler has been fixed to appropriately check for
  assignment on pointer components.
  

Temporary fix

Comments

APAR Information

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

  IZ65462

• 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 PSN IZ65462

     UP06/09/13