[Bug fortran/39953] New: Error: Expected VARIABLE at (1)

["eugene dot loh at sun dot com" <gcc-bugzilla at gcc dot gnu dot org>]

This compilation problem prevents SPECmpi benchmark 115.fds4 (file read.f) from
compiling with gfortran.  Here is an example of the problem:

     % cat read.f
           MODULE READ 
           CONTAINS
             SUBROUTINE READ_SPRK
               OPEN(95,FILE='dat',FORM='FORMATTED',STATUS='OLD')
               IF (IOS.EQ.0) READ(95,*) K
             END SUBROUTINE
           END MODULE
     % gfortran -c read.f
      In file read.f:5

               IF (IOS.EQ.0) READ(95,*) K                                    
                           1
     Error: Expected VARIABLE at (1)
     % gfortran -v
     Using built-in specs.
     Target: x86_64-suse-linux
     Configured with: ../configure --enable-threads=posix --prefix=/usr
--with-local-prefix=/usr/local --infodir=/usr/share/info
--mandir=/usr/share/man --libdir=/usr/lib64 --libexecdir=/usr/lib64
--enable-languages=c,c++,objc,fortran,obj-c++,java,ada
--enable-checking=release --with-gxx-include-dir=/usr/include/c++/4.1.2
--enable-ssp --disable-libssp --disable-libgcj --with-slibdir=/lib64
--with-system-zlib --enable-shared --enable-__cxa_atexit
--enable-libstdcxx-allocator=new --program-suffix=
--enable-version-specific-runtime-libs --without-system-libunwind
--with-cpu=generic --host=x86_64-suse-linux
     Thread model: posix
     gcc version 4.1.2 20070115 (SUSE Linux)
     %

A workaround is to break the IF statement into an IF block.


-- 
           Summary: Error: Expected VARIABLE at (1)
           Product: gcc
           Version: 4.1.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: eugene dot loh at sun dot com


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