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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [vect/] [O3-pr36119.f90] - Rev 774

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

! { dg-do compile } 

SUBROUTINE check_dnucint_ana (dcore)
  IMPLICIT NONE
  INTEGER, PARAMETER :: dp=8
  REAL(dp), DIMENSION(10, 2), INTENT(IN),&
       OPTIONAL                            :: dcore
  INTEGER                                  :: i, j
  REAL(dp)                                 :: delta, nssss, od, rn, ssssm, &
       ssssp
  REAL(dp), DIMENSION(10, 2)               :: corem, corep, ncore
  LOGICAL                                  :: check_value

  delta = 1.0E-8_dp
  od = 0.5_dp/delta
  ncore = od * (corep - corem)
  nssss = od * (ssssp - ssssm)
  IF (PRESENT(dcore)) THEN
     DO i = 1, 2
        DO j = 1, 10
           IF (.NOT.check_value(ncore(j,i), dcore(j,i), delta, 0.1_dp)) THEN
           END IF
        END DO
     END DO
  END IF
END SUBROUTINE check_dnucint_ana

! { dg-final { cleanup-tree-dump "vect" } } 

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.