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)