The eig function here sets an optional, value argument that is not present, and the code module m implicit none contains subroutine sub(i) integer, value, optional :: i if (.not. present(i)) i = 0 print "(a,i0)", "i = ",i end subroutine sub end module m program main use m, only: sub implicit none …

It seems it is not standard-conforming. The 2023 Draft says: 15.5.2.4 Argument association […] A present dummy argument with the VALUE attribute becomes argument associated with a definable anonymous data object whose initial value is the value of the actual argument. 15.5.2.13 Argument prese…

Can an OPTIONAL, VALUE argument be set if not PRESENT?

Help

PierU January 9, 2024, 3:05pm 3

It fails on execution with ifx

1 Like

Topic		Replies	Views
Testing whether an argument is PRESENT is very fast	7	1270	January 9, 2022
Passing element of an optional array as optional scalar argument Help	21	1068	August 16, 2024
Passing `allocatable, optional` to `optional` argument	4	174	May 16, 2025
Default value for optional argument	19	6437	December 19, 2020
How do optional variables work?	2	616	January 7, 2024

Can an OPTIONAL, VALUE argument be set if not PRESENT?

Related topics