Fixes are available
XL Fortran for AIX Fix Pack 5 (September 2013 PTF) for 14.1
XL Fortran for AIX Fix Pack 6 (December 2013 PTF) for 14.1
XL Fortran for AIX Fix Pack 7 (March 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 8 (July 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 9 (October 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 10 (February 2015 PTF) for 14.1
XL Fortran for AIX Fix Pack 11 (May 2015 PTF) for 14.1
Closed as program error.
Compiling a Fortran 2008 application using a derived type with default initialization encounters an invalid compiler error regarding the SAVE attribute: ===== TEST CASE ===== MODULE p IMPLICIT NONE TYPE, PUBLIC :: a INTEGER :: num = 0 END TYPE a INTEGER, PARAMETER, PRIVATE :: n = 118 TYPE( a ), PUBLIC :: table( 0:n ) END MODULE p "test.f90", line 1.1: 1513-191 (S) A variable declared in the scope of a module, table, that is of a derived type with default initialization, must have the SAVE attribute. Module variables with Fortran 2008 should automatically have the SAVE attribute.
Compile with -qsave=defaultinit option.
PROBLEM DESCRIPTION: A module variable of a type with default initialization must have the SAVE attribute by the Fortran 2003 or earlier standards. XL Fortran correctly flags this case, however module variables implicitly have the SAVE attribute by the Fortran 2008 standard. XL Fortran incorrectly emits an error message in the later case. USERS AFFECTED: Users having module variables of a type with default initialization in their applications and using a language level of Fortran 2008 or above will see this problem.
The problem has been fixed.
Reported component name
XL FORTRAN FOR
Reported component ID
Last modified date
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fixed component name
XL FORTRAN FOR
Fixed component ID
Applicable component levels
RE10 PSN U861038