This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/41044] internal compiler error: in gfc_conv_intrinsic_function
- From: "ros at rzg dot mpg dot de" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 9 Oct 2009 13:51:53 -0000
- Subject: [Bug fortran/41044] internal compiler error: in gfc_conv_intrinsic_function
- References: <bug-41044-18049@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #6 from ros at rzg dot mpg dot de 2009-10-09 13:51 -------
(In reply to comment #5)
I have further reducd the test code to:
idx=sum(maxloc(index(pfd%n,pfmt)))-1
Program GF_BUG
!
type psfd
character :: n*3
end type psfd
character :: pfmt*3=''
type(psfd), parameter :: pfd(1)=[psfd('')]
!
idx=sum(maxloc(index(pfd%n,pfmt)))-1
end
For the error message to appear it is essential
- that the variable 'psfd' is of derived type,
- that the type declaration statement for 'pdf' has the attribute PARAMETER
- and the statement 'idx=sum(maxloc(index(pfd%n,pfmt)))-1' exists in this form.
Splitting up this statement into
'idx=sum(maxloc(index(pfd%n,pfmt)))' and
'idx=idx-1'
makes the error message disappear!
I hope, this helps for fixing the bug.
--
ros at rzg dot mpg dot de changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |ros at rzg dot mpg dot de
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41044