gcc/testsuite/gfortran.dg/graphite/pr68715.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-floop-nest-optimize -O1" }
   3
   4 SUBROUTINE se_core_core_interaction(calculate_forces)
   5   INTEGER, PARAMETER :: dp=8
   6   LOGICAL, INTENT(in)            :: calculate_forces
   7   REAL(KIND=dp), DIMENSION(3)    :: force_ab, rij
   8   LOGICAL :: lfoo,kfoo,mfoo,nfoo,ffoo
   9   INTEGER, PARAMETER :: mi2=42
  10   CALL dummy(lfoo,kfoo,mfoo,nfoo,method_id,core_core)
  11   IF (lfoo) THEN
  12      DO WHILE (ffoo())
  13         IF (lfoo) CYCLE
  14         IF (kfoo) CYCLE
  15         dr1 = DOT_PRODUCT(rij,rij)
  16         IF (dr1 > rij_threshold) THEN
  17            SELECT CASE (method_id)
  18            CASE (mi2)
  19               IF (calculate_forces) THEN
  20                  CALL dummy2(force_ab)
  21                  IF (nfoo) THEN
  22                     force_ab = force_ab + core_core*dr3inv
  23                  END IF
  24               END IF
  25            END SELECT
  26         END IF
  27         enuclear = enuclear + enucij
  28      END DO
  29      CALL dummy3(enuclear)
  30   END IF
  31 END SUBROUTINE se_core_core_interaction