[patch, fortran]PR25829 Add support for F2003 I/O features
Tobias Burnus
burnus@net-b.de
Tue Apr 1 21:10:00 GMT 2008
> 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
More information about the Fortran
mailing list