[patch, fortran]PR25829 Add support for F2003 I/O features

[Jerry DeLisle]

On Tue, 2008-04-01 at 23:10 +0200, Tobias Burnus wrote:
> > Please give it a spin and test if you can.  Any test cases people are
> > willing to submit would be welcome.
> 
> DECIMAL="comma" does not work properly:
> 
> integer :: i
> real :: a(10) = [ (i*1.3, i=1,10) ]
> namelist /nm/ a
> write(*,nml=nm,decimal='comma')
> end
> 
> This should print
>  &nm a = 1,3; 2,6; ...
> but it prints:
>  &nm a = 1,3, 2,6, ...
> 
>  * * *
> 
> The following program should print:
>   1.3  4.0  5.0  5.0  7.0  0.0
> but gfortran has:
>   Fortran runtime error: Cannot match namelist object name
> 
> implicit none
> integer :: i
> real :: a(6) = 0.0
> character(len=30) :: str = '&nm a = 1,3; 4, 5; 5; 7; /'
> namelist /nm/ a
> read(str,nml=nm,decimal='comma')
> print *, a
> end
> 
>  * * *
> 
> +      notify_std (&dtp->common, GFC_STD_F2003, "DC or DP descriptor "
> 
> Please use also in libgfortran the "Fortran 2003:" prefix.
> 
>  * * *
> 
> The patch looks otherwise OK. It would be great if some others could 
> do some tests or code review as well. The code is too big to quickly
> see whether everything is correct or whether checks are missing or ...
> 
> Tobias,
> who is looking forward to the updated patch

I have all these cases working.  Doing more testing.

Jerry