Keyword initialization... again

[John4]

When I compile the code shown below, I get an error saying that "This is not a valid initialization expression". So, is keyword initialization valid for scalars but not for arrays?Also, is it allowed for PARAMETERs?

!--------------------------------------------------------------------------------------------------
module mod1

implicit none
private
save

type, public :: someType
character(63) :: attrib = ''
integer :: length = 255
integer :: dataType = 0
end type

type(someType) :: scalar = someType(attrib = 'so')
type(someType) :: array(1) = [ someType(attrib = 'something', length = 10) ]
! type(someType), parameter :: fixed = someType(attrib = 'fixed')

end module mod1
!--------------------------------------------------------------------------------------------------

[Steven_L_Intel1]

Keywords are not the problem here - for some reason that is not clear to me, the compiler doesn't like an array of derived type in an initialization expression. It should. In this particular case, you could get away with a scalar value here, but that would not work for a larger array. I will bring this to the developers' attention.

[John4]

Arrays of derived type in an initialization expression don't seem to be the problem ---since the code below compiles just fine, although when the -stand option is given to the compiler, I get a warning (Overlapping storage initializations encountered with ARRAY ...)

Also, in regards to my second question: is there any restriction to creating PARAMETERs using keyword initialization (when the absent keywords are already initialized, of course)? If I uncomment the last module line in the code below, I get an error.

!--------------------------------------------------------------------------------------------------
module mod1

implicit none
private
save

type, public :: someType
character(63) :: attrib = ''
integer :: length = 255
integer :: dataType = 0
end type

type(someType) :: scalar = someType(attrib = 'so')
type(someType) :: array(1) = [ someType('something', 10, 0) ]
! type(someType), parameter :: fixed = someType(attrib = 'fixed')

end module mod1
!--------------------------------------------------------------------------------------------------

[Steven_L_Intel1]

Not really. The compiler is not behaving properly here. Issue ID is DPD200158135.

[Steven_L_Intel1 · Accepted solution]

This problem was fixed in version 12.0 Update 1.