------- Comment #23 from anlauf at gmx dot de 2007-03-20 08:51 -------
(In reply to comment #22)
> Error 5001 would be ERROR_OPTION_CONFLICT. There are 18 different errors
> associated with that code. To find out which one, you must remove the iostat
> from the offending line so that gfortran will print the error message for you.
OK, this is what I get with iostat removed and compiled with -fbacktrace:
At line 264 of file ../../../../oo-model/mo_thinning.f90
Fortran runtime error: Missing format for FORMATTED data transfer
Backtrace for this error:
+ function data_transfer_init (0x89C9B92)
at line 1806 of file transfer.c
+ function __mo_thinning__read_nml_thin (0x83570AC)
at line 264 of file mo_thinning.f90
[...]
The code in question does a:
rewind (nnml)
[...]
call position_nml (nnml, 'THINNING', ...)
[...]
read (nnml, nml=THINNING) ! This is line 264
The read is only executed when the position_nml succeeds.
> Another option is to use iomsg and get the string.
Thanks, I did not know this F2003 feature. In that case I get for
iomsg = ""
read (nnml, nml=THINNING, iostat=ios, iomsg=iomsg)
the following output:
iostat = 5001
iomsg = Missing format for FORMATTED data transfer
No crash, of course, at least in the read statement.
> You can access the code base at gcc.gnu.org/viewcvs or better,
I will bookmark that.
> download with
> anonymous svn. See instructions here: http://gcc.gnu.org/svn.html. If you do
> the svn approach, its very simple to get latest update and you are a few
> keystrokes from building it yourself. :)
My next computer and internet connection will probably be
powerful enough. ;-)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31052
