Variable repeat factor / Variable Format Expressions

Help
5

@FLNewbiee ,

You may know from online references or from the book Modern Fortran Explained (MFE) or the proxy document toward the standard what the language currently offers “officially” is the so-called unlimited-format-item which is asterisk (*) followed by the format-item in parenthesis. Other compiles offer the nonstandard variable factor you have noticed.

If there is a good proposal for further improvements and support for it, perhaps the committee might include them in the future. You can suggest ideas at J3 Fortran proposals site.at GitHub.

In the meantime, you may know formats such as the following can be used where you will see the * unlimited repeat specifier and also a : (colon) terminator:

   integer, allocatable :: x(:)
   x = [ 1, 2, 3, 4, 5 ]
   print "(g0,*(g0,:',',1x))", "x = ", x
end

C:\temp>ifort /standard-semantics p.f90
Intel(R) Fortran Intel(R) 64 Compiler Classic for applications running on Intel(R) 64, Version 2021.7.0 Build 20220726_000000
Copyright (C) 1985-2022 Intel Corporation.  All rights reserved.

Microsoft (R) Incremental Linker Version 14.33.31630.0
Copyright (C) Microsoft Corporation.  All rights reserved.

-out:p.exe
-subsystem:console
p.obj

C:\temp>p.exe
x = 1, 2, 3, 4, 5

Refer to MFE and/or the standard proxy for further details.

1 Like