topic Recursive I/O operation issue when calling inquire in Intel® Fortran Compiler

Recursive I/O operation issue when calling inquire

Sebastien_D_ — Tue, 25 Nov 2014 14:17:18 GMT

I encounter an issue when calling "inquire" statement on one file and reading another one. Here is an example :

program test
  implicit none
  character(100)        :: fdata, fresult, dummy
  integer               :: uin, uout
  logical               :: i_opened
 
  fdata = "datatest.dat"
  fresult = "resultest.dat"
 
  open (newunit = uin, file = fdata, form='formatted', status = 'old')
  inquire(FILE=fresult, OPENED=I_OPENED, NUMBER = uout)
 
  read(uin,*) dummy
endprogram test

When I run that program, there is the following error :
severe (40): recursive I/O operation, unit -129 file unknown

This problem can be solved by placing the "inquire" statement before opening the fdata file, but i don't understand why. Can anyone explain this to me ?

This was a bug with NEWUNIT

Steven_L_Intel1 — Tue, 25 Nov 2014 14:22:48 GMT

This was a bug with NEWUNIT and was fixed some time ago. It works in the current release.

Steve,

Sebastien_D_ — Wed, 26 Nov 2014 08:02:52 GMT

Steve,

Thank you for your answer. Do you know which update fixed this bug ?

I am not sure (I am away from

Steven_L_Intel1 — Wed, 26 Nov 2014 16:00:31 GMT

I am not sure (I am away from the office and don't have access to our issues database), but from a review of the Readmes, it looks as if it was 2013 SP1 Update 3.