Compilation error in code with parameterized derived types

[Simon_Geard]

OS: Mageia4

I am testing v15 beta.

Compiling the attached code gives me both warnings and an internal error. Are the warnings correct? If so is there a standard conforming syntax?

I have tried submitting this through Premier Support but after inputting all the information I can no longer connect:

Firefox can't establish a connection to the server at businessportal003.intel.com.

I would like to have tested this on Win7 but due to TFS constraints we can't upgrade VS 2010, and as I understand it the v15 suite cannot be used with that version so I'm doing my testing on my Linux laptop at home.

ifort -o adj3 adj3.f90 -stand=f03

adj3.f90(76): warning #7026: Non-standard extension.   [BASE_MATRIX#4&*&*]
   class(adj_matrix(4,*,*)) :: this
^
adj3.f90(76): warning #7026: Non-standard extension.   [ADJ_MATRIX#4&*&*]
   class(adj_matrix(4,*,*)) :: this
^
adj3.f90(82): warning #7026: Non-standard extension.   [BASE_MATRIX#8&*&*]
   class(adj_matrix(8,*,*)) :: this
^
adj3.f90(82): warning #7026: Non-standard extension.   [ADJ_MATRIX#8&*&*]
   class(adj_matrix(8,*,*)) :: this
^
adj3.f90(88): warning #7026: Non-standard extension.   [BASE_MATRIX#4&*&*]
   class(adj_matrix(4,*,*)) :: this
^
adj3.f90(88): warning #7026: Non-standard extension.   [ADJ_MATRIX#4&*&*]
   class(adj_matrix(4,*,*)) :: this
^
adj3.f90(94): warning #7026: Non-standard extension.   [BASE_MATRIX#8&*&*]
   class(adj_matrix(8,*,*)) :: this
^
adj3.f90(94): warning #7026: Non-standard extension.   [ADJ_MATRIX#8&*&*]
   class(adj_matrix(8,*,*)) :: this
^
adj3.f90(121): warning #7026: Non-standard extension.   [BASE_MATRIX#4&:&:]
   class(adj_matrix(4,:,:)),allocatable, intent(out) :: d
^
adj3.f90(121): warning #7026: Non-standard extension.   [ADJ_MATRIX#4&:&:]
   class(adj_matrix(4,:,:)),allocatable, intent(out) :: d
^
adj3.f90(129): warning #7026: Non-standard extension.   [BASE_MATRIX#8&:&:]
   class(adj_matrix(8,:,:)),allocatable, intent(out) :: d
^
adj3.f90(129): warning #7026: Non-standard extension.   [ADJ_MATRIX#8&:&:]
   class(adj_matrix(8,:,:)),allocatable, intent(out) :: d
^
adj3.f90(137): warning #7026: Non-standard extension.   [BASE_MATRIX#8&*&*]
  class(adj_matrix(8,*,*)) :: this
^
adj3.f90(137): warning #7026: Non-standard extension.   [ADJ_MATRIX#8&*&*]
  class(adj_matrix(8,*,*)) :: this
^
adj3.f90(144): warning #7026: Non-standard extension.   [BASE_MATRIX#4&*&*]
   class(adj_matrix(4,*,*)) :: this
^
adj3.f90(144): warning #7026: Non-standard extension.   [ADJ_MATRIX#4&*&*]
   class(adj_matrix(4,*,*)) :: this
^
adj3.f90(151): warning #7026: Non-standard extension.   [BASE_MATRIX#4&:&:]
   class(adj_matrix(4,:,:)),allocatable, intent(out) :: d
^
adj3.f90(151): warning #7026: Non-standard extension.   [ADJ_MATRIX#4&:&:]
   class(adj_matrix(4,:,:)),allocatable, intent(out) :: d
^
adj3.f90(152): warning #7026: Non-standard extension.   [BASE_MATRIX#4&*&*]
   class(adj_matrix(4,*,*)) :: s
^
adj3.f90(152): warning #7026: Non-standard extension.   [ADJ_MATRIX#4&*&*]
   class(adj_matrix(4,*,*)) :: s
^
adj3.f90(158): warning #7026: Non-standard extension.   [BASE_MATRIX#8&:&:]
   type(adj_matrix(8,:,:)),allocatable, intent(out) :: d
^
adj3.f90(158): warning #7026: Non-standard extension.   [ADJ_MATRIX#8&:&:]
   type(adj_matrix(8,:,:)),allocatable, intent(out) :: d
^
adj3.f90(159): warning #7026: Non-standard extension.   [BASE_MATRIX#8&*&*]
   type(adj_matrix(8,*,*)) :: s
^
adj3.f90(159): warning #7026: Non-standard extension.   [ADJ_MATRIX#8&*&*]
   type(adj_matrix(8,*,*)) :: s
^
adj3.f90(124): internal error: Please visit 'http://www.intel.com/software/products/support' for assistance.
   allocate(adj_matrix(4,size(s,1),size(s,2))::d)
^
[ Aborting due to internal error. ]
compilation aborted for adj3.f90 (code 1)
 

[Steven_L_Intel1]

VS2010 works fine with the 2015 suite. Obviously an internal compiler error is wrong no matter what. I'll pass this on to the developers - thanks. Issue ID is DPD200256501.

[Steven_L_Intel1]

This bug has been fixed for the 15.0 release later this year. Thanks for bringing it to our attention.