Failing in trans-io.c

[Toon Moene]

Gentle(wo)men,

The following doesn't get compiled with GNU Fortran:

SUBROUTINE print_obs(log_io, dim1_obs, title)
IMPLICIT NONE
INTEGER, PARAMETER :: JPIM = SELECTED_INT_KIND(9)
INTEGER(KIND=JPIM), intent(in) :: log_io
INTEGER(KIND=JPIM), intent(in) :: dim1_obs
character*(*), intent(in), optional :: title(:)
INTEGER(KIND=JPIM) :: dim1
dim1 = max(0,min(size(title),dim1_obs))
write(log_io,fmt='(a)') title(:dim1)
end

It draws:

Driving: /usr/snp/bin/gfortran -v print_obs_pp.f90 -lgfortranbegin -lgfortran -lm -shared-libgcc
Using built-in specs.
Target: x86_64-unknown-linux-gnu
Configured with: ../trunk/configure --disable-nls --disable-multilib --prefix=/usr/snp --enable-languages=ada,c,c++,objc,fortran,java
Thread model: posix
gcc version 4.2.0 20051125 (experimental)
 /usr/snp/libexec/gcc/x86_64-unknown-linux-gnu/4.2.0/f951 print_obs_pp.f90 -quiet -dumpbase print_obs_pp.f90 -mtune=k8 -auxbase print_obs_pp -version -o /tmp/cctbhVW2.s
GNU F95 version 4.2.0 20051125 (experimental) (x86_64-unknown-linux-gnu)
	compiled by GNU C version 4.2.0 20051125 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
print_obs_pp.f90: In function 'print_obs':
print_obs_pp.f90:8: internal compiler error: tree check: expected integer_cst, have plus_expr in gfc_trans_transfer, at fortran/trans-io.c:1804
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

on my system.

-- 
Toon Moene - e-mail: toon@moene.indiv.nluug.nl - phone: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
A maintainer of GNU Fortran 95: http://gcc.gnu.org/fortran/