Inconsitancies with 'INQUIRE'

[Philippe Schaffnit]

Hi!

I've been experiencing some inconsistancies with 'INQUIRE',
unfortunately I haven't been able to reproduce the same thing with a
'minimal' test case, but the most simplified example I could come up
with does show other inconsistancies...

So, for me 'INQUIRE ( FILE = ..., EXIST = ..., READ = ..., FORMATTED =
... )' behaves in a somewhat random way. Has any one seen that before?,
should I file a PR? Can any one reproduce it? (It's not a given, as it
might have to do with how the file was created... I use NEdit...).

Thanks!

Philippe

PS: I am using 4.3.0 20061024, under i686-pc-linux-gnu (and
x86_64-unknown-linux-gnu).

PPS: what I use: gfortran -g Test.f90 -o Test ; ./Test

PPPS: Test.f90
!
      PROGRAM Test
!
      LOGICAL                           ::   Exists
      CHARACTER ( LEN = 25 )            ::   Readable, ASCII
      CHARACTER ( LEN = * ), PARAMETER  ::   File_Name = "Test.txt"
!
      INQUIRE ( FILE = File_Name, EXIST = Exists, READ = Readable,     &
     &                                               FORMATTED = ASCII )
      WRITE ( 6, * ) Exists, " ", TRIM(Readable), " ", TRIM(ASCII)
!
      END PROGRAM Test
!

PPPS: Test.txt

--------------------------------------------------
0010
**********************************************
*         Begining of simulation             *
**********************************************
--------------------------------------------------
0020
Time t =
--------------------------------------------------
0030
Simulation run on machine
Unable to read machine's name.
--------------------------------------------------
0040
CPU-time in seconds:
End
--------------------------------------------------
0060
Fraction of phase
:
--------------------------------------------------
0070
Additional output, fraction phase
--------------------------------------------------
0090
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Error in main, t=
Wrong value for maxInkrIntf =
--------------------------------------------------
0100
Error in the calculation of the (automatic) time-step!
Calculated time-step:
Minimal 'representable' value:
Stop in main at t =
--------------------------------------------------
0110
Reducing 'anzKorn' by