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.