10.3 Data declaration [mostly 6.0]

• The maximum rank of an array has been increased from 7 to 15. For example,

     REAL array(2,2,2,2,2,2,2,2,2,2,2,2,2,2,2)
  

  declares a 15-dimensional array.
• [3.0] 64-bit integer support is required, that is, the result of SELECTED_INT_KIND(18) is a valid integer kind number.
• A named constant (PARAMETER) that is an array can assume its shape from its defining expression; this is called an implied-shape array. The syntax is that the upper bound of every dimension must be an asterisk, for example

     REAL,PARAMETER :: idmat3(*,*) = Reshape( [ 1,0,0,0,1,0,0,0,1 ], [ 3,3 ] )
     REAL,PARAMETER :: yeardata(2000:*) = [ 1,2,3,4,5,6,7,8,9 ]
  

  declares idmat3 to have the bounds (1:3,1:3), and yeardata to have the bounds (2000:2008).
• The TYPE keyword can be used to declare entities of intrinsic type, simply by putting the intrinsic type-spec within the parentheses. For example,

     TYPE(REAL) x
     TYPE(COMPLEX(KIND(0d0))) y
     TYPE(CHARACTER(LEN=80)) z
  

  is completely equivalent, apart from being more confusing, to

     REAL x
     COMPLEX(KIND(0d0)) y
     CHARACTER(LEN=80) z
  

• As a consequence of the preceding extension, it is no longer permitted to define a derived type that has the name DOUBLEPRECISION.
• [5.3] A type-bound procedure declaration statement may now declare multiple type-bound procedures. For example, instead of

        PROCEDURE,NOPASS :: a
        PROCEDURE,NOPASS :: b=>x
        PROCEDURE,NOPASS :: c
  

  the single statement

        PROCEDURE,NOPASS :: a, b=>x, c
  

  will suffice.
• [5.3 for C_ASSOCIATED, 7.0 for C_LOC and C_FUNLOC] A specification expression may now use the C_ASSOCIATED, C_LOC and C_FUNLOC functions from the ISO_C_BINDING module. For example, given a TYPE(C_PTR) variable X and another interoperable variable Y with the TARGET attribute,

         INTEGER workspace(MERGE(10,20,C_ASSOCIATED(X,C_LOC(Y))))
  

  is allowed, and will give workspace a size of 10 elements if the C pointer X is associated with Y, and 20 elements otherwise.
• [7.0] A specification expression may now use a user-defined operation, provided that operation is provided by a specification function. (A specification function must be a pure function that is not a statement function or internal function, and that does not have a dummy procedure argument.) For example, given the interface block

         INTERFACE OPERATOR(.user.)
            PURE INTEGER FUNCTION userfun(x)
               REAL,INTENT(IN) :: x
            END FUNCTION
         END INTERFACE
  

  the user-defined operator .user. may be used in a specification expression as follows:

         LOGICAL mask(.user.(3.145))
  

  Note that this applies to overloaded intrinsic operators as well as user-defined operators.