12088Ssos! { dg-do compile }
25536Ssos
32088SsosSUBROUTINE check_dnucint_ana (dcore)
42088Ssos  IMPLICIT NONE
52088Ssos  INTEGER, PARAMETER :: dp=8
62088Ssos  REAL(dp), DIMENSION(10, 2), INTENT(IN),&
72088Ssos       OPTIONAL                            :: dcore
82088Ssos  INTEGER                                  :: i, j
95994Ssos  REAL(dp)                                 :: delta, nssss, od, rn, ssssm, &
105994Ssos       ssssp
112088Ssos  REAL(dp), DIMENSION(10, 2)               :: corem, corep, ncore
122088Ssos  LOGICAL                                  :: check_value
132088Ssos
142088Ssos  delta = 1.0E-8_dp
152088Ssos  od = 0.5_dp/delta
162088Ssos  ncore = od * (corep - corem)
172088Ssos  nssss = od * (ssssp - ssssm)
182088Ssos  IF (PRESENT(dcore)) THEN
192088Ssos     DO i = 1, 2
202088Ssos        DO j = 1, 10
212088Ssos           IF (.NOT.check_value(ncore(j,i), dcore(j,i), delta, 0.1_dp)) THEN
222088Ssos           END IF
232088Ssos        END DO
242088Ssos     END DO
252088Ssos  END IF
262088SsosEND SUBROUTINE check_dnucint_ana
272088Ssos
282088Ssos! { dg-final { cleanup-tree-dump "vect" } }
2929603Scharnier