gfxgfx
 
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
logo
 
gfx gfx
gfx
847 Posts in 273 Topics by 2533 Members - Latest Member: pabloosbor September 10, 2010, 05:03:46 PM
*
gfx*HomeHelpSearchLoginRegistergfx
gfxgfx
      « previous next »
Pages: [1] Print
Author Topic: namelist reading problem with Absoft Pro Fortran v11  (Read 488 times)
khmoriym
Newbie
*
Posts: 1


View Profile
« 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 
/

« Last Edit: March 12, 2010, 01:02:08 AM by khmoriym » Logged
forumadmin
Administrator
Full Member
*****
Posts: 131


View Profile Email
« Reply #1 on: March 12, 2010, 09:30:41 AM »

This is a known issue with V11.0 (and V10.2, V10.1, V10.0). It will fixed in the next sevice pack for V11.0. In the meantime, you can contact support@absoft.com for a resolution.
Logged
gfx
Pages: [1] Print 
gfx
Jump to:  
gfx gfx
Powered by MySQL Powered by PHP Valid XHTML 1.0! Valid CSS!