LI78764: MULTIPLE C BIND BINDING_LABEL IN INTERFACE CAUSING ERROR

XL Fortran for Blue Gene/Q Fix Pack 14 (May 2016 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 15 (October 2017 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 13 (August 2015 Update) for 14.1

APAR status

• Closed as program error.

Error description

• An invalid error message is output when multiple binding_labels
  use the same identifier.  The scope unit of the binding_label is
  the containing subroutine.
  
  
     === TEST CASE ===
  
        MODULE test_module
          use, intrinsic :: iso_c_binding
        CONTAINS
        SUBROUTINE sub1
          INTERFACE
          TYPE(C_PTR) FUNCTION func() BIND(C, NAME='func')
          IMPORT
          END FUNCTION func
          END INTERFACE
        END SUBROUTINE
  
        SUBROUTINE sub2
          INTERFACE
          TYPE(C_PTR) FUNCTION func() BIND(C, NAME='func')
          IMPORT
          END FUNCTION func
          END INTERFACE
        END SUBROUTINE
        END MODULE
  
  
  $ xlf -c test.f
  "test.f", line 14.30: 1514-161 (S) Identifier "func" appearing
  as a specific interface procedure/result name was defined
  elsewhere with conflicting attributes.  This definition is
  ignored.
  ** test_module   === End of Compilation 1 ===
  1501-511  Compilation failed for file test.f.
  $
  

Local fix

Problem summary

• PROBLEM DESCRIPTION:
  The compiler is diagnosing these scenarios as errors although
  the Fortran standard allows them.
  
  USERS AFFECTED:
  Users who have multiple functions that have the same name and
  either the same or different binding labels.
  

Problem conclusion

• The compiler has been fixed to be standard conforming.
  

Temporary fix

Comments

APAR Information

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

  IV73551

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

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5799AH100

Applicable component levels

• RE10 PSN IV73551

     UP06/09/13