Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
Black Belt
10 Views

Compiler deconstructing structure constructor

I used the numbers spat out by the compiler for my weekly lotto pick, but I didn't win anything.  Oh well.

MODULE m20150828
  IMPLICIT NONE
  
  TYPE :: ParentType
    CHARACTER(:), ALLOCATABLE :: string
  END TYPE ParentType
  
  TYPE, EXTENDS(ParentType) :: ExtensionType
  END TYPE ExtensionType
  
  TYPE :: OtherType
    CHARACTER(:), ALLOCATABLE :: other_string
  END TYPE OtherType
END MODULE m20150828

PROGRAM p
  USE m20150828
  IMPLICIT NONE
  TYPE(OtherType), ALLOCATABLE :: array(:)
  CLASS(ExtensionType), ALLOCATABLE :: object
  
  ALLOCATE(object)
  object%string = 'initiating compiler self-destruct sequence!'
  
  ALLOCATE(array(1))
  array(1) = OtherType(OTHER_STRING=object%string)
END PROGRAM p

 

>ifort /check:all /warn:all /standard-semantics "2015-08-28 structure-constructor-ice.f90"
Intel(R) Visual Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 16.0 Build 20150815
Copyright (C) 1985-2015 Intel Corporation.  All rights reserved.

010101_14247 supplementary 22

catastrophic error: **Internal compiler error: internal abort** Please report this error along with the circumstances in
 which it occurred in a Software Problem Report.  Note: File and line given may not be explicit cause of this error, and its not even a given that they will be given.
compilation aborted for 2015-08-28 structure-constructor-ice.f90 (code 1)


 

 

0 Kudos
3 Replies
Highlighted
Black Belt
10 Views

I've now found comments in my source that indicate that I'd already encountered this some time ago, so this is highly likely to be a repeat report.

0 Kudos
Highlighted
Employee
10 Views

Thank you for following through with the report. I have not yet matched it to any of your previously reported defects and the error is still reproducible with our most recent 16.0 release, so I opened a new internal defect and will update the internal tracking id below if we find an existing match.

(Internal tracking id: DPD200375489)

(Resolution Update on 02/27/2016): This defect is fixed in the Intel® Parallel Studio XE 2016 Update 2 Release (PSXE 2016.2.055/ CnL 2016.2.180 - Windows)

 

0 Kudos
Highlighted
Employee
10 Views

This this internal error is fixed in the recently announced PSXE 2016 Update 2 release (PSXE 2016.2.055/ CnL 2016.2.180 - Windows)

0 Kudos