Subversion Repositories openrisc

! { 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" } }