[Bug fortran/24188] New: WRITE(6,*) causes an ICE with -mcmodel=medium

["fischer at td dot mw dot tum dot de" <gcc-bugzilla at gcc dot gnu dot org>]

Trying to compile this code:

SUBROUTINE FOO
   WRITE(6,*) ''
END

with the command:
gfortran -mcmodel=medium -c foo.F -o foo.o

Causes this ICE:
foo.F:2: internal compiler error: in named_section, at varasm.c:450

Compilation works normal without "-mcmodel=medium", also
WRITE (6,*) ' '
and
WRITE (6,*)
work.

Output of gfortran -v:

Using built-in specs.
Target: x86_64-unknown-linux-gnu
Configured with: ./configure --prefix=/home/fischer --enable-languages=f95 :
(reconfigured) ./configure --prefix=/home/fischer --enable-languages=c,fortran
--no-create --no-recursion
Thread model: posix
gcc version 4.1.0 20051004 (experimental)

gfortran was compiled with gcc from SuSE 9.3. Output of gcc -v:

Reading specs from /usr/lib64/gcc-lib/x86_64-suse-linux/3.3.5/specs
Configured with: ../configure --enable-threads=posix --prefix=/usr
--with-local-prefix=/usr/local --infodir=/usr/share/info
--mandir=/usr/share/man --enable-languages=c,c++,f77,objc,java,ada
--disable-checking --libdir=/usr/lib64 --enable-libgcj --with-slibdir=/lib64
--with-system-zlib --enable-shared --enable-__cxa_atexit x86_64-suse-linux
Thread model: posix
gcc version 3.3.5 20050117 (prerelease) (SUSE Linux)


-- 
           Summary: WRITE(6,*) causes an ICE with -mcmodel=medium
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: fischer at td dot mw dot tum dot de
 GCC build triplet: x86_64-unknown-linux-gnu
  GCC host triplet: x86_64-unknown-linux-gnu
GCC target triplet: x86_64-unknown-linux-gnu


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