gcc/testsuite/gfortran.dg/pr101267.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Ofast" }
   3 ! { dg-additional-options "-march=znver2" { target x86_64-*-* i?86-*-* } }
   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,  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