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

Invoking LOC on a procedure pointer causes ICE

While mucking around with an example for the delphi thread I noticed this.

MODULE m
  IMPLICIT NONE
  ABSTRACT INTERFACE
    SUBROUTINE proc_intf
    END SUBROUTINE proc_intf
  END INTERFACE
  
  PROCEDURE(proc_intf), POINTER :: proc
CONTAINS
  SUBROUTINE s
    PRINT *, LOC(proc)
  END SUBROUTINE s
END MODULE m

 

>ifort /check:all /warn:all /standard-semantics "2016-10-12 ice.f90"
Intel(R) Visual Fortran Intel(R) 64 Compiler for applications running on IA-32, Version 17.0.0.109 Build 20160721
Copyright (C) 1985-2016 Intel Corporation.  All rights reserved.

04020007_0

catastrophic error: **Internal compiler error: internal abort** Please report this error, remain calm, exit the building, etc, etc.

 

0 Kudos
1 Reply
Highlighted
9 Views

Thanks - escalated as DPD200415153.

0 Kudos