The following causes an ICE:
$ cat ftn95bug.f90
program ftn95bug
implicit none
character(8) :: indata(4) = (/ &
'12344321', '98766789', 'abcdefgh', 'ABCDEFGH' &
/)
call process (myfunc (indata)) ! <- This causes a gfortran ICE !
contains
elemental function myfunc (s)
character(*), intent(in) :: s
character(len (s)) :: myfunc
myfunc = s
end function
subroutine process (strings)
character(*), intent(in) :: strings(:)
print *, strings
end subroutine
end program
[EMAIL PROTECTED] /cygdrive/d/usr/wws/fortran/utils
$ gfortran --version
GNU Fortran (GCC) 4.3.0 20071005 (experimental) [trunk revision 127783]
Copyright (C) 2007 Free Software Foundation, Inc.
GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING
[EMAIL PROTECTED] /cygdrive/d/usr/wws/fortran/utils
$ gfortran ftn95bug.f90
ftn95bug.f90:8: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
[EMAIL PROTECTED] /cygdrive/d/usr/wws/fortran/utils
$
--
Summary: ICE - CHARACTER expression using an ELEMENTAL FUNCTION
as actual arg
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: w6ws at earthlink dot net
GCC build triplet: i686-pc-cygwin
GCC host triplet: i686-pc-cygwin
GCC target triplet: i686-pc-cygwin
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33888
