Oh the trouble I had - when compiling the attached the compiler went bad, which made me all sad. If it got fixed I would be glad, so help me, before I go mad.
>ifort /c /check:all /warn:all /standard-semantics /stand slippery-little-so-and-so.f90 Intel(R) Visual Fortran Intel(R) 64 Compiler XE for applications running on Intel(R) 64, Version 15.0.2.179 Build 20150121 Copyright (C) 1985-2015 Intel Corporation. All rights reserved. slippery-little-so-and-so.f90(38): warning #6178: The return value of this FUNCTION has not been defined. [WHAT] FUNCTION ts_What() RESULT(what) ----------------------------^ ... slippery-little-so-and-so.f90(76): remark #7712: This variable has not been used. [NAMES] SUBROUTINE ParseDataComponentDefStmt(decl_spec, attrs, names) ---------------------------------------------------------^ fortcom: Fatal: There has been an internal compiler error (C0000005). compilation aborted for slippery-little-so-and-so.f90 (code 1)