Quantcast
Channel: Fortran
Viewing all articles
Browse latest Browse all 3108

Compiler deconstructing structure constructor

$
0
0

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)

 

 


Viewing all articles
Browse latest Browse all 3108

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>