[Bug libfortran/65234] Output descriptor (*(1E15.7)) not accepted

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65234

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2015-02-27
     Ever confirmed|0                           |1

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed.

> What for example if one wants to emit/read an even number of floats like
> with: '(*(2E15.7))'? 

I think this expectation is wrong, i.e., writing an array with an odd number of
elements will print the whole army as demonstrated by the following test

real :: a(11) = [(i,i=1,11)]
print '(*(2(E15.3)))', a
end

which gives at run time

      0.100E+01      0.200E+01      0.300E+01      0.400E+01      0.500E+01    
 0.600E+01      0.700E+01      0.800E+01      0.900E+01      0.100E+02     
0.110E+02