khmoriym
Newbie

Posts: 1
|
 |
« on: March 12, 2010, 12:23:36 AM » |
|
Hi, dears.
I got Absoft Pro Fortran 95 v.11.0.2 and have a problem with namelist reading. (32bit Linux (intel) version, working on Ubuntu 9.04)
With the ver 11 compiler, it seems that elements of derived type variables defined as an array are not read properly through namelist. The below is a test program and the input for it. The aa%y() and aa%z() are not read. And, the read sentence only returns iostat=10021.
Ver 9 of the compiler worked without problem with the same program. Other compilers like g95 and gfortran were also no problem.
I think it needs a fix.
khmoriym -----8<--test program-------8<--------8<------- program test integer :: a, b, c(5), ui, ist, uerr, i type mytype real(kind(1d0)) :: x, y(5), z(5) end type mytype type(mytype) :: aa namelist / vars / & a, b, c, aa
ui = 9; uerr = 9 a=0; b=0; c=0; aa%x=0; aa%y=0; aa%z=0 open(unit=ui, file="in", status="old") read(ui, nml=vars, iostat=ist) write(*,*) "ist=", ist write(*,*) "a=", a write(*,*) "b=", b write(*,*) "c=", (c(i), i=1,5) write(*,*) "aa%x=", aa%x write(*,*) "aa%y=", (aa%y(i), i=1,5) write(*,*) "aa%z=", (aa%z(i), i=1,5) end program test -----8<-----input file "in" ----8<--------8<------- &vars a=1 c(3:5)=100 200 300 aa%x=1000 aa%y = 1 2 3 aa%z(2) = 10 aa%z(3) = 20 /
|