Type parameter inquiry and intrinsic types

IanH — Wed, 24 Sep 2014 07:22:34 GMT

"A type parameter inquiry is used to inquire about a type parameter of a data object. It applies to both intrinsic and derived types."

IMPLICIT NONE
CHARACTER(*), PARAMETER :: const = 'Hello'
PRINT *, const%LEN
PRINT *, 'This is weird syntax'(:)%LEN
END

>ifort /check:all /warn:all /standard-semantics "2014-09-24 kind-param-inquiry.f90"
Intel(R) Visual Fortran Intel(R) 64 Compiler XE for applications running on Intel(R) 64, Version 15.0.0.108 Build 201407
26
Copyright (C) 1985-2014 Intel Corporation.  All rights reserved.

2014-09-24 kind-param-inquiry.f90(4): error #5082: Syntax error, found '%' when expecting one of: * ) :: , <END-OF-STATEMENT> ; . (/ + - : ] /) ' ** / // > .LT. < ...
PRINT *, 'This is weird syntax'(:)%LEN
----------------------------------^
2014-09-24 kind-param-inquiry.f90(3): error #6460: This is not a field name that is defined in the encompassing structure.   [LEN]
PRINT *, const%LEN
---------------^
2014-09-24 kind-param-inquiry.f90(3): error #6158: The structure-name is invalid or is missing.   [CONST]
PRINT *, const%LEN
---------^
2014-09-24 kind-param-inquiry.f90(4): error #6404: This name does not have a type, and must have an explicit type.   [LEN]
PRINT *, 'This is weird syntax'(:)%LEN
-----------------------------------^
2014-09-24 kind-param-inquiry.f90(4): error #6355: This binary operation is invalid for this data type.   ['This is weird syntax']
PRINT *, 'This is weird syntax'(:)%LEN
---------^
2014-09-24 kind-param-inquiry.f90(4): error #6549: An arithmetic or LOGICAL type is required in this context.
PRINT *, 'This is weird syntax'(:)%LEN
----------------------------------^
compilation aborted for 2014-09-24 kind-param-inquiry.f90 (code 1)

(Obviously LEN isn't a kind

IanH — Wed, 24 Sep 2014 07:25:23 GMT

(Obviously LEN isn't a kind param for CHARACTER, I just like naming my files to confuse myself.)

Thanks. I know that we had

Steven_L_Intel1 — Wed, 24 Sep 2014 14:00:10 GMT

Thanks. I know that we had some issues with type parameter inquiries - we'll take a look at this.

Escalated as DPD200361370. I

Steven_L_Intel1 — Wed, 24 Sep 2014 14:26:53 GMT

Escalated as DPD200361370. I agree that syntax is "weird", but it is legal. It seems that ifort doesn't like the inquiry functions on PARAMETER constants or literals.

topic Thanks. I know that we had in Intel® Fortran Compiler

Type parameter inquiry and intrinsic types

(Obviously LEN isn't a kind

Thanks. I know that we had

Escalated as DPD200361370. I