Use of Advance = YES and EOR give no warning/error

Use of Advance = YES and EOR give no warning/error

I think the snippet below should give at least a warning when compiled with standard warning is enabled since EOR cannot be specified for Advance == YES.

I am using 11.1.038 on WinXP64 with VS2005.

The command line for compilation is:

/nologo /debug:full /Od /gen-interfaces /stand:f03 /warn:all /module:"Debug\" /object:"Debug\" /traceback /check:bounds /libs:static /threads /dbglibs /c

Abhi

----

Program Test_NoAdvance

!
! Purpose: Test Advance = NO
!

Implicit None

Integer, Parameter :: N = 5
Real :: A(N), B
Integer :: i

Open(90, File='Input.dat', Form='Formatted', Status='Old')

Rewind(90)

Read(90,"(5(F4.1,1X))",ADVANCE='YES',ERR=990,END=991,EOR=992) (A(i), i=1,N)
Read(90,*,ERR=995,END=996) B

Close(90)

990 Stop "ERR."
991 Stop "END."
992 Stop "EOR."

995 Stop "ERR2."
996 Stop "END2."

End Program Test_NoAdvance

2 posts / novo 0
Último post
Para obter mais informações sobre otimizações de compiladores, consulte Aviso sobre otimizações.

Sorry, I should have posted this on the main forum.

Abhi

Deixar um comentário

Faça login para adicionar um comentário. Não é membro? Inscreva-se hoje mesmo!