1! { dg-do compile }
2
3SUBROUTINE check_dnucint_ana (dcore)
4  IMPLICIT NONE
5  INTEGER, PARAMETER :: dp=8
6  REAL(dp), DIMENSION(10, 2), INTENT(IN),&
7       OPTIONAL                            :: dcore
8  INTEGER                                  :: i, j
9  REAL(dp)                                 :: delta, nssss, od, rn, ssssm, &
10       ssssp
11  REAL(dp), DIMENSION(10, 2)               :: corem, corep, ncore
12  LOGICAL                                  :: check_value
13
14  delta = 1.0E-8_dp
15  od = 0.5_dp/delta
16  ncore = od * (corep - corem)
17  nssss = od * (ssssp - ssssm)
18  IF (PRESENT(dcore)) THEN
19     DO i = 1, 2
20        DO j = 1, 10
21           IF (.NOT.check_value(ncore(j,i), dcore(j,i), delta, 0.1_dp)) THEN
22           END IF
23        END DO
24     END DO
25  END IF
26END SUBROUTINE check_dnucint_ana
27
28