[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