A trimmed down version of the code which produce the ice is below; The full
code once compile with version 4.1.0, I believe

>>
!
    SUBROUTINE POSL(LAT,LON,JUL,HEURE,MIN,PAZ)

     IMPLICIT NONE
!
     REAL,SAVE :: XPI                ! Pi
     REAL, DIMENSION(:), INTENT(IN):: LAT, LON, JUL, HEURE, MIN 
     REAL, DIMENSION(:),INTENT(OUT):: PAZ
     REAL                                :: ZPI2, ZCDR
!
     REAL, DIMENSION(SIZE(LAT))         :: ZXLON, ZXLON2

      ZPI2 = 2*XPI
      ZCDR = ZPI2/360 

! Position du soleil avec Heure = TU
! Azenit,Azimut en radian
 !
      ZXLON(:)  = 0.
      ZXLON2(:)  = LON(:)
      WHERE(ZXLON < 0.0)
         ZXLON(:) = 360. + ZXLON2(:)         
      END WHERE
!
      PAZ(:)= 0.5*XPI - 0.0
!
    END SUBROUTINE POSL 
>>
[EMAIL PROTECTED] test1]$ gfortran --version
GNU Fortran 95 (GCC) 4.2.0 20061211 (prerelease)
Copyright (C) 2006 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] test1]$ gfortran -c posl.f90
posl.f90: In function ‘posl’:
posl.f90:20: internal compiler error: in gfc_dep_resolver, at
fortran/dependency.c:1167
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


-- 
           Summary: ICE in gfc_dep_resolver
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: deji_aking at yahoo dot ca


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

Reply via email to