IV73551: MULTIPLE C BIND BINDING_LABEL IN INTERFACE CAUSING ERROR

XL Fortran for AIX Fix Pack 12 (August 2015 Update) for 14.1
XL Fortran for AIX Fix Pack 15 (April 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 16 (July 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 17 (November 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 18 (February 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 19 (August 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 14 (December 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:

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

  IV75543 LI78764

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5725C7400

Applicable component levels