OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [947.f] - Rev 316

Go to most recent revision | Compare with Previous | Blame | View Log

c { dg-do run }
      DIMENSION A(-5:5)
      INTEGER(kind=1) IM5, IZ, IP5
      INTEGER(kind=2) IM1, IP1
      PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
      DATA A(IM5) /-5./, A(IM1) /-1./
      DATA A(IZ)  /0./
      DATA A(IP5) /+5./, A(IP1) /+1./
      IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
     ,    A(IZ)  .NE.  0. .OR.
     ,    A(IP5) .NE. +5. .OR. A(IP1) .NE. +1. )
     ,  CALL ABORT
      END
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.