bug-classpath
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Bug fortran/41044] internal compiler error: in gfc_conv_intrinsic_funct


From: ros at rzg dot mpg dot de
Subject: [Bug fortran/41044] internal compiler error: in gfc_conv_intrinsic_function
Date: 9 Oct 2009 13:51:53 -0000


------- 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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]