anchor.diff:    END IF
     IF (7 <= argc) THEN
       CALL GET_COMMAND_ARGUMENT(7, argv)
  -    READ(argv, "(I32)") routine
  -  ELSE
  -    routine = -1
  -  END IF
  -  IF (8 <= argc) THEN
  -    CALL GET_COMMAND_ARGUMENT(8, argv)
       READ(argv, "(I32)") i
     ELSE
       i = 2 ! 2 GByte for A and B (and C, but this currently not used by the F90 test)
  
positive.code:     !$OMP END PARALLEL
    END IF
  
    WRITE(*, "(A)") "Streamed... (auto-dispatched)"
    !$OMP PARALLEL PRIVATE(i, start) DEFAULT(NONE) &
    !$OMP   SHARED(duration, a, dx, dy, dz, c, m, n, k, mm, nn, kk)
    ALLOCATE(tm1(mm,n,k), tm2(mm,nn,k))
    tm1 = 0; tm2 = 0;
    !$OMP MASTER
    start = libxsmm_timer_tick()
    !$OMP END MASTER
  
negative.code:       WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "performance:", &
          (s * ((2*m-1)*mm*n*k + mm*(2*n-1)*nn*k + mm*nn*(2*k-1)*kk) * 1D-9 / duration), " GFLOPS/s"
        WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "bandwidth:  ", &
          (s * ((m*n*k) + (mm*nn*kk)) * T / (duration * LSHIFT(1_8, 30))), " GB/s"
      END IF
      WRITE(*, "(1A,A,F10.1,A)") CHAR(9), "duration:   ", 1D3 * duration, " ms"
    end subroutine performance
  