LI78125: REMOVE (E) MESSAGE ON THE OBJECT OF DERIVED TYPE WHEN THE TYPE IS EMPTY

XL Fortran for Blue Gene/Q Fix Pack 12 (May 2015 Update) for 14.1
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 10 (November 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 11 (February 2015 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

• The compiler incorrectly generates an (E) message for object of
  derived type when the type is empty.
  
  ===== COMPILE COMMAND:
  bgxlf2008 -c -qhalt=e foo.F
  
  ===== TESTCASE:
  % cat foo.F
  
  module foo
  
    type :: foo_t
    end type foo_t
  
  contains
  
    type(foo_t) function bar()
    end function bar
  
  end module foo
  
  
  %
  
  
  
  ===== ACTUAL OUTPUT:
  bgxlf2008 -c -qhalt=e foo.F
  "foo.F", 1513-083 (E) Internal or module function bar was not
  set within the function.
  ** foo   === End of Compilation 1 ===
  1501-511  Compilation failed for file foo.F.
  
  ===== EXPECTED OUTPUT:
  Compiler should not issue an (E) message for the above test
  case.
  

Local fix

• N/A
  

Problem summary

• USERS AFFECTED:
  When user applications include functions with results of
  derived types with no components, users may encounter this
  problem.
  
  PROBLEM DESCRIPTION:
  When a function result is of a derived type with no components,
  and the function result is not explicitly defined inside the
  function,
  compilation fails with an error message. Compiler should accept
  such cases as objects of derived-type with no components are
  considered as defined.
  

Problem conclusion

• The problem has been fixed such that the compiler now accepts
  such cases as objects of derived-type with no components are
  considered as defined.
  

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:

  IV68522

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5799AH100

Applicable component levels

• RE10 PSY

     UP