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

[jv244 at cam dot ac dot uk]

------- Comment #5 from jv244 at cam dot ac dot uk  2009-09-27 17:44 -------
reduced:

> cat bug.f90
    Subroutine PS_INIT (bkgd, punit, pform, psize, rot90, bbox, clip, eps,  &
                        caller)
    type psfd                          ! paper size and frame defaults
      character(3)                     :: n
      real                             :: p(2)
      real                             :: f(4)
    end type psfd
    character                          :: fn*4, orich, pfmt*16
    type(psfd), parameter              :: pfd(0:11)=(/  &
         psfd('   ',(/   0.0,   0.0/),(/200.,120.,800.,560./)), &    ! A0_L
         psfd('A0 ',(/ 840.9,1189.2/),(/140., 84.,560.,400./)), &    ! A0_P
         psfd('A1 ',(/ 594.6, 840.9/),(/100., 60.,400.,280./)), &    ! A1_P
         psfd('A2 ',(/ 420.4, 594.6/),(/ 70., 42.,280.,200./)), &    ! A2_P
         psfd('A3 ',(/ 297.3, 420.4/),(/ 50., 30.,200.,140./)), &    ! A3_P
         psfd('A4 ',(/ 210.2, 297.3/),(/ 35., 21.,140.,100./)), &    ! A4_P
         psfd('A5 ',(/ 148.7, 210.2/),(/ 25., 15.,100., 70./)), &    ! A5_P
         psfd('A6 ',(/ 105.1, 148.7/),(/ 18., 11., 70., 50./)), &    ! A6_P
         psfd('   ',(/   0.0,   0.0/),(/ 50., 30.,200.,140./)), &    ! Letter_L
         psfd('LET',(/ 215.9, 279.4/),(/ 35., 21.,140.,100./)), &    ! Letter_P
         psfd('   ',(/   0.0,   0.0/),(/ 50., 30.,200.,140./)), &    ! Legal_L
         psfd('LEG',(/ 215.9, 355.6/),(/ 35., 21.,140.,100./))/)     ! Legal_P
    if (len_trim(pfmt) > 0) then       ! set paper format
      idx=sum(maxloc(index(pfd%n,pfmt(1:3))))-1
    end if
    end subroutine PS_INIT


-- 

jv244 at cam dot ac dot uk changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |32834
              nThis|                            |
      Known to fail|4.5.0                       |4.5.0 4.3.2 4.4.1
            Summary|Gfortran fails to compile   |internal compiler error: in
                   |due to internal error       |gfc_conv_intrinsic_function


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41044