[Bug libfortran/21647] New: INQUIRE errors when using -fdefault-integer-8

[dir at lanl dot gov]

When compilied with "-fdefault-integer-8", inquire incorrectly says that a file
exits. It works correctly without the "-fdefault-integer-8"



[dranta:~/tests/gfortran] dir% gfortran -fdefault-integer-8 -o d8test4 d8test4.f
[dranta:~/tests/gfortran] dir% d8test4
 output   exists
STOP 0
[dranta:~/tests/gfortran] dir% gfortran -o d8test4 d8test4.f
[dranta:~/tests/gfortran] dir% d8test4
 output   Does not exist
STOP 0
[dranta:~/tests/gfortran] dir% cat d8test4.f
      program test2
      character*8 nfn
      LOGICAL EX

      nfn='output'
                  
      INQUIRE (FILE=nfn,EXIST=EX)
      IF (EX) THEN
        WRITE(*,*)nfn, ' exists'
      ELSE
        WRITE(*,*)nfn,' Does not exist'
      END IF
      stop
      end
[dranta:~/tests/gfortran] dir% ls o*
tcsh: ls: No match.

-- 
           Summary: INQUIRE errors when using  -fdefault-integer-8
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: powerpc-apple-darwin7.9.0
  GCC host triplet: powerpc-apple-darwin7.9.0
GCC target triplet: powerpc-apple-darwin7.9.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21647