Describe the issue:

When using the data statement as defined here, it seems to splice the array always the comma, without taking into consideration, if that comma is inside of parentheses.

Reproduce the code example:

# For example, this
complex(8), target :: medium_ref_index
data medium_ref_index/(1.d0, 0.d0)/

# results in a signature file containing
complex(kind=8), target,optional :: medium_ref_index=(1.d0

Error message:

No response

Runtime information:

1.24.2
3.11.2 (main, Feb 8 2023, 00:00:00) [GCC 12.2.1 20221121 (Red Hat 12.2.1-4)]

Context for the issue:

No response