[Bug tree-optimization/40801] internal compiler error: in vect_get_vec_def_for_stmt_copy, at tree-vect-stmts.c:1096

rguenth at gcc dot gnu dot org gcc-bugzilla@gcc.gnu.org
Sat Jul 18 19:15:00 GMT 2009



------- Comment #2 from rguenth at gcc dot gnu dot org  2009-07-18 19:15 -------
ODULE YOMPHY0
REAL :: ECMNP
REAL :: SCO
REAL :: USDMLT
END MODULE YOMPHY0
SUBROUTINE ACCONV ( KIDIA,KFDIA,KLON,KTDIA,KLEV,&
                    &CDLOCK)
USE YOMPHY0  , ONLY : ECMNP    ,SCO      ,USDMLT
REAL :: PAPHIF(KLON,KLEV),PCVGQ(KLON,KLEV)&
    &,PFPLCL(KLON,0:KLEV),PFPLCN(KLON,0:KLEV),PSTRCU(KLON,0:KLEV)&
    &,PSTRCV(KLON,0:KLEV)
INTEGER :: KNLAB(KLON,KLEV),KNND(KLON)
REAL :: ZCP(KLON,KLEV),ZLHE(KLON,KLEV),ZDSE(KLON,KLEV)&
    &,ZPOII(KLON),ZALF(KLON),ZLN(KLON),ZUN(KLON),ZVN(KLON)&
    &,ZPOIL(KLON)
DO JLEV=KLEV-1,KTDIA,-1
  DO JIT=1,NBITER
    ZLN(JLON)=MAX(0.,ZLN(JLON)&
     &-(ZQW(JLON,JLEV)-ZQN(JLON)&
     &*(PQ(JLON,JLEV+1)-ZQN(JLON))))*KNLAB(JLON,JLEV)
  ENDDO
ENDDO
IF (ITOP < KLEV+1) THEN
  DO JLON=KIDIA,KFDIA
    ZZVAL=PFPLCL(JLON,KLEV)+PFPLCN(JLON,KLEV)-SCO
    KNND(JLON)=KNND(JLON)*MAX(0.,-SIGN(1.,0.-ZZVAL))
  ENDDO
  DO JLEV=ITOP,KLEV
    DO JLON=KIDIA,KFDIA
    ENDDO
  ENDDO
ENDIF
END SUBROUTINE ACCONV


-- 

rguenth at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2009-07-18 19:15:43
               date|                            |


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



More information about the Gcc-bugs mailing list