topic Puzzling error message - BUG? in Intel® Fortran Compiler

Puzzling error message - BUG?

WSinc — Wed, 01 Feb 2012 20:15:19 GMT

I get this "recursive I/O operation" breakpoint.
Are there ANY rules that prevent me from priniting out the function value as an intermediate result?

It runs OK if I comment out the second print statement near the end.
It might be related to having that array in COMMON rather thanhaving it as input argument.

Why does it say "UNIT -1" - - does that even exist?
That why it seems peculiar, anyway.
************************************************************************************
program test4

integer*1 p(10)/10*10/

integer*8 prod,prod1

common/com1/p

print *,"prod=",prod()

read(*,*)

end program

integer*8 function prod()

common/com1/p

integer*1 p(10)

prod=1

do i=1,10

prod=prod*p(i)

print *,"i=",i," prod=",prod

end do

end

Puzzling error message - BUG?

Steven_L_Intel1 — Wed, 01 Feb 2012 20:18:26 GMT

It is a bug in your code, yes. The Fortran standard prohibits starting an I/O operation on a unit while another operation on that unit is in progress. PRINT implies a specific unit. You have a reference to prod() in the PRINT in the main program and prod also does a print - this will result in the "recursive I/O error".

Puzzling error message - BUG?

WSinc — Wed, 01 Feb 2012 20:24:07 GMT

Even when it's a console unit?
How would I modify this so that I can print out an intermediate result (for debugging) anyway.

BTW, is there a way to make the forum letters a little larger?
I don't see an option for that.

Puzzling error message - BUG?

mecej4 — Wed, 01 Feb 2012 21:04:37 GMT

Avoid expressions in I/O lists that contain references to functions that do I/O. For example, instead of

print *,"prod=",prod()

do

prod1 = prod()
print *, "prod=",prod1

Puzzling error message - BUG?

Steven_L_Intel1 — Wed, 01 Feb 2012 21:27:47 GMT

You can use WRITE(6,*) as a replacement for PRINT *, in the function. This will use a separate unit.

Puzzling error message - BUG?

Les_Neilson — Thu, 02 Feb 2012 08:16:15 GMT

BTW, is there a way to make the forum letters a little larger?
I don't see an option for that.

If you are using IE to access the forum then from the menu View->Text Size-> you have a choice from Largest to Smallest

Les

Ignore that I've just tried it and it made no difference. Strange.

Puzzling error message - BUG?

David_Kinniburgh — Thu, 02 Feb 2012 11:36:05 GMT

On Windows, you could use the generic Cntrl-+, Cntrl-- and Cntrl-0 for changing text size (hold down Cntrl then press + etc)

Puzzling error message - BUG?

Steven_L_Intel1 — Thu, 02 Feb 2012 14:36:30 GMT

In Firefox, you can use View > Zoom for this and it does work.

Puzzling error message - BUG?

WSinc — Thu, 02 Feb 2012 17:36:31 GMT

Those don't change the text size relative to the window, but still the
zoom is good for senior eyes like mine.

Thanx for suggestion ! ! !

Actually, another answer rather than WRITE(6,*) is to put the function value
in a temporary variable, then print that out instead.