Fwd: One ICE and one regression with latest 10/17 builds

[François-Xavier Coudert]

I'm not sure I'll have time to reduce this one, file a PR or reghunt
for it. Could someone look into it?

Thanks,
FX

---------- Forwarded message ----------
From: Alan Greynolds <awgreynolds@earthlink.net>
Date: Oct 19, 2007 1:36 PM
Subject: One ICE and one regression with latest 10/17 builds
To: FX Coudert <fxcoudert@gmail.com>

~/gfc/geloe$ gfortran -c -g modules.f90
modules.f90:379: internal compiler error: Bus error
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
~/gfc/geloe$ gfortran -c modules.f90
~/gfc/geloe$ gfortran -c readlens.f90
readlens.f90:407.103:

2','MODE SEQ','NAME '//trim(titles),'UNIT '//UpperCase(UNAME(kunit(0))(:2))

   1
Error: Variable 'str' is used at (1) before the ENTRY statement in
which it is a parameter
-------------- next part --------------
A non-text attachment was scrubbed...
Name: default.fh
Type: application/octet-stream
Size: 362 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20071019/6987162f/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: modules.f90
Type: application/octet-stream
Size: 30966 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20071019/6987162f/attachment-0001.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: precisn.fh
Type: application/octet-stream
Size: 309 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20071019/6987162f/attachment-0002.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: readlens.f90
Type: application/octet-stream
Size: 31680 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20071019/6987162f/attachment-0003.obj>