gcc/testsuite/gfortran.dg/pr112404.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Ofast" }
   3 ! { dg-additional-options "-mavx2" { target avx2 } }
   4    SUBROUTINE sfddagd( regime, znt, ite, jte, ime, IN )
   5    REAL, DIMENSION( ime, IN) :: regime, znt
   6    REAL, DIMENSION( ite, jte) :: wndcor_u
   7    LOGICAL wrf_dm_on_monitor
   8    IF( int4 == 1 ) THEN
   9      DO j=jts,jtf
  10      DO i=itsu,itf
  11        reg = regime(i-1,  j)
  12        IF( reg > 10.0 ) THEN
  13          znt0 = znt(i-1,  j) + znt(i,  j)
  14          IF( znt0 <= 0.2) THEN
  15            wndcor_u(i,j) = 0.2
  16          ENDIF
  17        ENDIF
  18      ENDDO
  19      ENDDO
  20      IF ( wrf_dm_on_monitor()) THEN
  21      ENDIF
  22    ENDIF
  23    END